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

Timestamp:

May 13, 2006, 1:13:19 PM (19 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/switch.tcl (modified) (7 diffs)

trunk/gui/scripts/switch.tcl

@@ -32 +32 @@
     itk_option define -width width Width 0
     itk_option define -height height Height 0
+    itk_option define -state state State "normal"
 
     constructor {args} { # defined below }
@@ -109 +110 @@
 
     bind $itk_component(value) <ButtonPress> \
-        [list $itk_component(presetlist) post $itk_component(vframe) left]
+        [itcl::code $this _presets dropdown]
     $itk_component(presets) configure -command \
-        [list $itk_component(presetlist) post $itk_component(vframe) left]
+        [itcl::code $this _presets dropdown]
 
     eval itk_initialize $args
@@ -277 +278 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Switch::_hilite {comp state} {
+    if {$itk_option(-state) == "disabled"} {
+        set state 0  ;# never hilite when disabled
+    }
     if {$comp == "value"} {
         if {$state} {
@@ -285 +289 @@
         return
     }
-
     if {$state} {
         $itk_component($comp) configure -relief solid
@@ -305 +308 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Switch::_presets {option} {
+    if {$itk_option(-state) != "normal"} {
+        return  ;# disabled? then bail out!
+    }
     switch -- $option {
+        dropdown {
+            $itk_component(presetlist) post $itk_component(vframe) left
+        }
         post {
             set i [$itk_component(presetlist) index $_value]
@@ -324 +333 @@
         }
         default {
-            error "bad option \"$option\": should be post, unpost, select"
+            error "bad option \"$option\": should be dropdown, post, unpost, select"
         }
     }
@@ -359 +368 @@
         _redraw
     }
+}
+
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -state
+# ----------------------------------------------------------------------
+itcl::configbody Rappture::Switch::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(value) configure -state $itk_option(-state)
+    $itk_component(presets) configure -state $itk_option(-state)
 }