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

Timestamp:

Apr 9, 2008, 11:41:19 AM (17 years ago)

Author:

dkearney

Message:

reverting boolean fixes because they end up breaking old applications, we'll fix this again in rappture2 i guess

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