Changeset 51407


Ignore:
Timestamp:
May 24, 2009, 5:25:38 AM (11 years ago)
Author:
jmr@…
Message:

avoid an extra filemap open/close in portimage::activate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/registry1.0/portimage.tcl

    r51134 r51407  
    125125        set imagefiles [_check_contents $name $contents $imagedir]
    126126       
     127        registry::open_file_map
    127128        _activate_contents $name $imagefiles $imagedir
    128129
     
    131132        registry::write_entry $ref
    132133
    133         registry::open_file_map
    134134        foreach file $imagefiles {
    135135                registry::register_file $file $name
     
    331331        #  we remove the file from the file_map, take ownership of it, and
    332332        #  clobber it
    333         registry::open_file_map
    334333        foreach file $imagefiles {
    335334                set srcfile ${imagedir}${file}
     
    383382        }
    384383        registry::write_file_map
    385         registry::close_file_map
    386384
    387385        # Sort the list in forward order, removing duplicates.
Note: See TracChangeset for help on using the changeset viewer.