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

Timestamp:

Aug 19, 2008 9:36:54 AM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/switch.tcl (modified) (4 diffs)

trunk/gui/scripts/switch.tcl

@@ -16 +16 @@
     inherit itk::Widget
 
-    itk_option define -oncolor onColor Color "green"
+    itk_option define -oncolor onColor Color "#00cc00"
     itk_option define -state state State "normal"
 
     constructor {args} { # defined below }
     public method value {args}
+    public method updateText {}
     private variable _value 0  ;# value for this widget
 }
@@ -34 +35 @@
 
     itk_component add value {
-        checkbutton $itk_interior.value  -variable [itcl::scope _value]
+        checkbutton $itk_interior.value \
+            -variable [itcl::scope _value] \
+            -command [itcl::code $this updateText]
     } {
-        rename -background -textbackground textBackground Background
+        #rename -background -textbackground textBackground Background
     }
     pack $itk_component(value) -side left -expand yes -fill both
@@ -70 +73 @@
         set _value $newval
         event generate $itk_component(hull) <<Value>>
-
+        updateText
     } elseif {[llength $args] != 0} {
         error "wrong # args: should be \"value ?-check? ?newval?\""
@@ -77 +80 @@
 }
 
+itcl::body Rappture::Switch::updateText {} {
+    set mesg [expr {($_value) ? "on" : "off"}]
+    $itk_component(value) configure -text $mesg
+}
+   
 
 # ----------------------------------------------------------------------