Changeset 1669 for trunk/gui/scripts

Timestamp:

Mar 22, 2010, 8:14:29 PM (15 years ago)

Author:

dkearney

Message:

adding enable and disable to pushbutton widget so we can have a disable's pushbutton

File:

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

trunk/gui/scripts/pushbutton.tcl

@@ -1 @@
-
 # ----------------------------------------------------------------------
 #  COMPONENT: PushButton - widget for entering a choice of strings
@@ -34 +33 @@
     public method select {}
     public method toggle {}
+    public method disable {}
+    public method enable {}
 
     protected method _fixValue {args}
 
     private variable _state 0
-    public variable command "";         # Command to be invoked 
-    private variable _variable "";      # Variable to be set. 
-    public variable onimage "";         # Image displayed when selected 
-    public variable offimage "";        # Image displayed when deselected. 
-    public variable onvalue "1";        # Value set when selected.
-    public variable offvalue "0";       # Value set when deselected. 
+    private variable _enabled 1
+    public variable command "";         # Command to be invoked
+    private variable _variable "";      # Variable to be set.
+    public variable onimage "";         # Image displayed when selected
+    public variable offimage "";        # Image displayed when deselected.
+    public variable disabledimage "";   # Image displayed when deselected.
+    public variable onvalue "1";        # Value set when selected.
+    public variable offvalue "0";       # Value set when deselected.
 }
 
@@ -56 +59 @@
 itcl::body Rappture::PushButton::constructor {args} {
     itk_component add button {
-        label $itk_interior.button -borderwidth 1 -relief sunken 
+        label $itk_interior.button -borderwidth 1 -relief sunken 
     } {
-        usual
-        ignore -padx -pady -relief -borderwidth -background
+        usual
+        ignore -padx -pady -relief -borderwidth -background
     }
     bind $itk_component(button) <ButtonPress> \
@@ -69 +72 @@
 
 itcl::body Rappture::PushButton::invoke {} {
+    if { !$_enabled } {
+        return
+    }
     toggle
     if { $command != "" } {
-        uplevel \#0 $command
+        uplevel \#0 $command
     }
 }
 
 itcl::body Rappture::PushButton::toggle {} {
+    if { !$_enabled } {
+        return
+    }
     set _state [expr !$_state]
     if { $_state } {
-        select
+        select
     } else {
-        deselect
+        deselect
     }
+}
+
+itcl::body Rappture::PushButton::disable {} {
+    set _enabled [expr !$_enabled]
+    $itk_component(button) configure -relief raise \
+        -image $disabledimage -bg grey85
+}
+
+itcl::body Rappture::PushButton::enable {} {
+    set _enabled [expr !$_enabled]
+    _fixValue
 }
 
@@ -93 +113 @@
 itcl::body Rappture::PushButton::_fixValue {args} {
     if {"" == $itk_option(-variable)} {
-        return
+        return
     }
     upvar #0 $itk_option(-variable) var
     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
     } elseif { $var == $offvalue } {
-        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
     } else {
-        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"onvalue\""
+        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"onvalue\""
     }
 }
 
 itcl::body Rappture::PushButton::select {} {
+    if { !$_enabled } {
+        return
+    }
     upvar #0 $_variable state
     set state $onvalue
@@ -115 +138 @@
 
 itcl::body Rappture::PushButton::deselect {} {
+    if { !$_enabled } {
+        return
+    }
     upvar #0 $_variable state
     set state $offvalue
@@ -125 +151 @@
 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
+        }
     }
 }