Changeset 3330 for trunk/gui/scripts/pushbutton.tcl

Timestamp:

Feb 24, 2013, 1:11:18 PM (12 years ago)

Author:

gah

Message:

merge (by hand) with Rappture1.2 branch

File:

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

trunk/gui/scripts/pushbutton.tcl

@@ +1 @@
+# -*- mode: tcl; indent-tabs-mode: nil -*- 
 
 # ----------------------------------------------------------------------
@@ -28 +29 @@
     itk_option define -onvalue onValue OnValue "normal"
     itk_option define -offvalue offValue OffValue "normal"
+    itk_option define -onbackground onBackground OnBackground "white"
+    itk_option define -offbackground offBackground OffBackground "grey85"
 
     constructor {args} { 
@@ -54 +57 @@
     public variable onvalue "1";        # Value set when selected.
     public variable offvalue "0";       # Value set when deselected.
+    public variable onbackground "white"
+    public variable offbackground "grey85"
 }
 
@@ -133 +138 @@
         set _state 1
         $itk_component(button) configure -relief sunken \
-            -image $onimage -bg white
+            -image $onimage -bg $onbackground
     } else {
         set _state 0
         $itk_component(button) configure -relief raise \
-            -image $offimage -bg grey85
+            -image $offimage -bg $offbackground
     }
 }