Changeset 880 for trunk/gui/scripts
- Timestamp:
- Feb 12, 2008, 9:34:20 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/booleanentry.tcl
r437 r880 52 52 # hints in the XML. 53 53 # 54 set defaultVal [$_owner xml get $path.default] 54 55 itk_component add switch { 55 Rappture::Switch $itk_interior.switch 56 Rappture::Switch $itk_interior.switch $defaultVal 56 57 } 57 58 pack $itk_component(switch) -expand yes -fill both … … 75 76 # Assign the default value to this widget, if there is one. 76 77 # 77 set str [$_owner xml get $path.default] 78 if {"" != $str} { 79 $itk_component(switch) value $str 78 if {"" != $defaultVal} { 79 $itk_component(switch) value $defaultVal 80 80 } else { 81 81 $itk_component(switch) value off
Note: See TracChangeset
for help on using the changeset viewer.