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

Timestamp:

May 13, 2006 1:13:19 PM (18 years ago)

Author:

mmc

Message:

Added a new <enable> parameter to all inputs. Controls can now be
enabled/disabled based on the status of other controls. If a group
is disabled, it disappears entirely. If a parameter is enabled to
a hard-coded "off" value, then it acts like a hidden (secret)
parameter.

File:

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

trunk/gui/scripts/booleanentry.tcl

@@ -15 +15 @@
 itcl::class Rappture::BooleanEntry {
     inherit itk::Widget
+
+    itk_option define -state state State "normal"
 
     constructor {owner path args} { # defined below }
@@ -141 +143 @@
 itcl::body Rappture::BooleanEntry::tooltip {} {
     set str [$_owner xml get $_path.about.description]
-    append str "\n\nEnter a boolean value (1/0, on/off, yes/no, true/false)"
+    append str "\n\nClick to turn on/off"
     return [string trim $str]
 }
@@ -154 +156 @@
     event generate $itk_component(hull) <<Value>>
 }
+
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -state
+# ----------------------------------------------------------------------
+itcl::configbody Rappture::BooleanEntry::state {
+    set valid {normal disabled}
+    if {[lsearch -exact $valid $itk_option(-state)] < 0} {
+        error "bad value \"$itk_option(-state)\": should be [join $valid {, }]"
+    }
+    $itk_component(switch) configure -state $itk_option(-state)
+}