Changeset 2992 for trunk/gui/scripts/controls.tcl

Timestamp:

May 2, 2012, 12:01:42 PM (13 years ago)

Author:

gah

Message:

Migrated drawing controls from branch

File:

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

trunk/gui/scripts/controls.tcl

@@ -138 +138 @@
             bind $w <<Value>> [itcl::code $this _controlChanged $name]
         }
-        drawing {
-            Rappture::DrawingEntry $w $_owner $path
-            bind $w <<Value>> [itcl::code $this _controlChanged $name]
-        }
         group {
             Rappture::GroupEntry $w $_owner $path
@@ -164 +160 @@
             Rappture::TextEntry $w $_owner $path
             bind $w <<Value>> [itcl::code $this _controlChanged $name]
+        }
+        drawing {
+            Rappture::DrawingEntry $w $_owner $path
         }
         image {
@@ -258 +257 @@
     set _name2info($name-enable) $enable
 
+    set hidden [$_owner xml get $_name2info($name-path).hide]
+    if { $hidden != "" } {
+        set _name2info($name-enable) [expr !$hidden]
+    }
     $_owner widgetfor $path $w