Changeset 880 for trunk/gui/scripts/booleanentry.tcl

Timestamp:

Feb 12, 2008, 9:34:20 PM (17 years ago)

Author:

dkearney

Message:

these updates to booleanentry.tcl are needed for the new boolean switch to work properly.

File:

• trunk/gui/scripts/booleanentry.tcl (modified) (2 diffs)

trunk/gui/scripts/booleanentry.tcl

@@ -52 +52 @@
     # hints in the XML.
     #
+    set defaultVal [$_owner xml get $path.default]
     itk_component add switch {
-        Rappture::Switch $itk_interior.switch
+        Rappture::Switch $itk_interior.switch $defaultVal
     }
     pack $itk_component(switch) -expand yes -fill both
@@ -75 +76 @@
     # Assign the default value to this widget, if there is one.
     #
-    set str [$_owner xml get $path.default]
-    if {"" != $str} {
-        $itk_component(switch) value $str
+    if {"" != $defaultVal} {
+        $itk_component(switch) value $defaultVal
     } else {
         $itk_component(switch) value off