Changeset 437 for trunk/gui/scripts/imageentry.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/imageentry.tcl (modified) (2 diffs)

trunk/gui/scripts/imageentry.tcl

@@ -16 +16 @@
 itcl::class Rappture::ImageEntry {
     inherit itk::Widget
+
+    itk_option define -state state State "normal"
 
     constructor {owner path args} { # defined below }
@@ -217 +219 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -state
+# ----------------------------------------------------------------------
+itcl::configbody Rappture::ImageEntry::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(image) configure -state $itk_option(-state)
+}