Changeset 3076 for trunk/gui/scripts/drawingcontrols.tcl

Timestamp:

Jul 5, 2012, 1:31:40 PM (12 years ago)

Author:

gah

Message:

don't enable cloned drawing controls

File:

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

trunk/gui/scripts/drawingcontrols.tcl

@@ -39 +39 @@
     private method FormatLabel {str}
     private method Monitor {name state}
-    
     private variable _dispatcher ""
     private variable _controls ""
@@ -181 +180 @@
         set _name2info($name-disablestyle) $disablestyle
     }
+
+    if 0 {
     #
     # If this element has an <enable> expression, then register
@@ -232 +233 @@
             }
         }
-
         foreach cpath $deps {
             $_owner dependenciesfor $cpath $path
         }
     }
-    set _name2info($name-enable) $enable
+    }
+    set _name2info($name-enable) yes
 
     #set wid [$_owner widgetfor $path]
@@ -534 +535 @@
     $_dispatcher event -idle !layout
 }
+