Changeset 2990 for branches/blt4/gui/scripts/drawingcontrols.tcl

Timestamp:

May 2, 2012, 7:29:30 AM (13 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/drawingcontrols.tcl (modified) (1 diff)

branches/blt4/gui/scripts/drawingcontrols.tcl

@@ -89 +89 @@
         set controls $_controls
     }
-    foreach name $_controls {
+    foreach name $controls {
         set w $_frame.v$name
         destroy $w
+        if { [info exists _name2info($name-label)] } {
+            destroy $_frame.l$name
+        }
         set i [lsearch $_controls $name]
         set _controls [lreplace $_controls $i $i]