Changeset 1672 for trunk/gui

Timestamp:

Mar 26, 2010 12:29:24 PM (14 years ago)

Author:

dkearney

Message:

fixing the enable/disable functions to only enable if the button was previously disabled, and only disable if the button was previously enabled

File:

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

trunk/gui/scripts/pushbutton.tcl

@@ +1 @@
+#!/usr/bin/wish
 # ----------------------------------------------------------------------
+
+
 #  COMPONENT: PushButton - widget for entering a choice of strings
 #
@@ -73 +76 @@
 itcl::body Rappture::PushButton::invoke {} {
     if { !$_enabled } {
+        puts "in invoke button not enabled"
         return
     }
@@ -94 +98 @@
 
 itcl::body Rappture::PushButton::disable {} {
-    set _enabled [expr !$_enabled]
-    $itk_component(button) configure -relief raise \
-        -image $disabledimage -bg grey85
+    if { $_enabled } {
+        set _enabled [expr !$_enabled]
+        $itk_component(button) configure -relief raise \
+            -image $disabledimage -bg grey85
+    }
 }
 
 itcl::body Rappture::PushButton::enable {} {
-    set _enabled [expr !$_enabled]
-    _fixValue
+    if { !$_enabled } {
+        set _enabled [expr !$_enabled]
+        _fixValue
+    }
 }
 
@@ -125 +133 @@
             -image $offimage -bg grey85
     } else {
-        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"onvalue\""
+        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"$onvalue\""
     }
 }