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

Timestamp:

Oct 18, 2010 11:59:55 AM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/pushbutton.tcl

@@ -28 +28 @@
 
     constructor {args} { 
-        # defined below 
+        # defined below 
     }
     destructor { 
-        # defined below 
+        # defined below 
     }
 
@@ -78 +78 @@
 itcl::body Rappture::PushButton::invoke {} {
     if { !$_enabled } {
-        puts "in invoke button not enabled"
+        puts "in invoke button not enabled"
         return
     }
@@ -127 +127 @@
     upvar #0 $itk_option(-variable) var
     if { $var != "" && [string is boolean $var] } {
-        set var [expr "$var == 1"]
+        set var [expr "$var == 1"]
     }
     if { $var == $onvalue } {
-        set _state 1
-        $itk_component(button) configure -relief sunken \
-            -image $onimage -bg white
+        set _state 1
+        $itk_component(button) configure -relief sunken \
+            -image $onimage -bg white
     } else {
-        set _state 0
-        $itk_component(button) configure -relief raise \
-            -image $offimage -bg grey85
+        set _state 0
+        $itk_component(button) configure -relief raise \
+            -image $offimage -bg grey85
     }
 }
@@ -162 +162 @@
 itcl::configbody Rappture::PushButton::variable {
     if {"" != $_variable} {
-        upvar #0 $_variable var
-        trace remove variable var write [itcl::code $this _fixValue]
+        upvar #0 $_variable var
+        trace remove variable var write [itcl::code $this _fixValue]
     }
     set _variable $itk_option(-variable)
 
     if {"" != $_variable} {
-        upvar #0 $_variable var
-        trace add variable var write [itcl::code $this _fixValue]
+        upvar #0 $_variable var
+        trace add variable var write [itcl::code $this _fixValue]
 
-        # sync to the current value of this variable
-        if {[info exists var]} {
-            _fixValue
-        }
+        # sync to the current value of this variable
+        if {[info exists var]} {
+            _fixValue
+        }
     }
 }