Changeset 3642 for trunk/gui/scripts/switch.tcl

Timestamp:

May 9, 2013, 11:29:37 AM (11 years ago)

Author:

mmc

Message:

Fixes for nanoHUB ticket #258058 and #258045 -- note within a group tab
doesn't fill out the area properly. Should work better now. Also fixed
tabs to contain the window, instead of floating above the cotents as they
have for a long time.

Fixed boolean controls to have a more obvious on/off switch instead of a
checkbox. Fixed integers and spinners to use larger +/- buttons that are
easier to press on an iPad. Fixed numbers and other gauges to have the
same relief style as entries and other widgets.

Added new layout styles to groups: horizontal, vertical, tabs, and sentence.
You can now explicitly make a layout vertical instead of tabs by setting
the layout to "vertical" instead of throwing in a separator. Updated the
zoo/groups example to show off new horizontal and sentence types.

Fixed the "drawing" example in the zoo to gray out the trapezoid top when
it is disabled.

File:

• trunk/gui/scripts/switch.tcl (modified) (3 diffs)

trunk/gui/scripts/switch.tcl

@@ -41 +41 @@
 
     itk_component add button {
-        button $itk_interior.value \
-            -compound left \
+        button $itk_interior.value -compound left \
             -overrelief flat -relief flat -padx 3 -pady 0 -bd 0 \
             -command [itcl::code $this _toggle]
@@ -114 +113 @@
     if { $_value } {
         if {$itk_option(-showimage)} {
-            set image [Rappture::icon cbon]
+            set image [Rappture::icon switch1]
         }
         if {$itk_option(-showtext)} {
@@ -121 +120 @@
     } else {
         if {$itk_option(-showimage)} {
-            set image [Rappture::icon cboff]
+            set image [Rappture::icon switch0]
         }
         if {$itk_option(-showtext)} {