Changeset 1670 for branches/blt4/gui/scripts/pushbutton.tcl

Timestamp:

Mar 24, 2010 5:32:13 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/pushbutton.tcl (modified) (3 diffs)

branches/blt4/gui/scripts/pushbutton.tcl

@@ -27 +27 @@
     itk_option define -offvalue offValue OffValue "normal"
 
-    constructor {args} { # defined below }
-    destructor { # defined below }
+    constructor {args} { 
+        # defined below 
+    }
+    destructor { 
+        # defined below 
+    }
 
     public method invoke {}
@@ -68 +72 @@
 }
 
+# ----------------------------------------------------------------------
+# CONSTRUCTOR
+# ----------------------------------------------------------------------
+itcl::body Rappture::PushButton::destructor {} {
+   if {"" != $_variable} {
+        upvar #0 $_variable var
+        trace remove variable var write [itcl::code $this _fixValue]
+    }
+}
+
 itcl::body Rappture::PushButton::invoke {} {
     toggle
@@ -103 +117 @@
         $itk_component(button) configure -relief sunken \
             -image $onimage -bg white
-    } elseif { $var == $offvalue } {
+    } else {
         set _state 0
         $itk_component(button) configure -relief raise \
             -image $offimage -bg grey85
-    } else {
-        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"$onvalue\""
     }
 }