Changeset 6313 for branches/1.7/gui/scripts/loader.tcl
- Timestamp:
- May 4, 2016, 11:27:36 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.7/gui/scripts/loader.tcl
r6024 r6313 246 246 set str [string trim [$_owner xml get $path.default]] 247 247 if { $str != "" } { 248 bind $itk_component(hull) <Map> [itcl::code $this SetDefaultValue $str]248 SetDefaultValue $str 249 249 } 250 250 } … … 326 326 # SetDefaultValue -- 327 327 # 328 # Sets the designated default value for the loader. This must be done 329 # after the entire application is assembled, otherwise the default 330 # values set up by the loader will be overwritten by the various widgets 331 # themselves when they try to set their default values. 332 # 333 # This is called from a <Map> event to the loader (combobox). This 334 # will get trigger the first time the loader is displayed. The binding 335 # is then removed. 328 # Sets the designated default value for the loader. This must be done 329 # after the entire application is assembled, otherwise the default values 330 # set up by the loader will be overwritten by the various widgets 331 # themselves when they try to set their default values. 336 332 # 337 333 itcl::body Rappture::Loader::SetDefaultValue { value } { 338 after idle [itcl::code $this value $value] 339 # We're done. Remove the binding. 340 bind $itk_component(hull) <Map> {} 334 after 100 [itcl::code $this value $value] 341 335 } 342 336
Note: See TracChangeset
for help on using the changeset viewer.