Changeset 5660 for branches/1.4/gui/scripts/switch.tcl
- Timestamp:
- Jun 5, 2015, 10:09:25 AM (9 years ago)
- Location:
- branches/1.4
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/switch.tcl
r3642 r5660 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: switch - on/off switch 4 4 # 5 # This widget is used to control a (boolean) on/off value. 5 # This widget is used to control a (boolean) on/off value. 6 6 # It is just a wrapper around a button. 7 7 # ====================================================================== … … 48 48 } 49 49 pack $itk_component(button) -side left -expand yes -fill both 50 eval itk_initialize $args 50 eval itk_initialize $args 51 51 } 52 52 … … 90 90 # 91 91 # Use internally to convert the toggled button into the 92 # proper boolean format. Yes, right now it's hardcoded to 92 # proper boolean format. Yes, right now it's hardcoded to 93 93 # yes/no. But in the future it could be some other text. 94 94 #
Note: See TracChangeset
for help on using the changeset viewer.