Changeset 746 for trunk

Timestamp:

May 18, 2007, 3:28:20 PM (17 years ago)

Author:

mmc

Message:

Fix for support ticket #1773 "bad window path name ".main.area..."
Added a band-aid into the whole GUI loading process. MOSFET has been
having trouble loading its structure. A fix for that caused this
problem in CNTbands v2.0. This will hold for now.

Location:

trunk/gui/scripts

Files:

• combobox.tcl (modified) (1 diff)
• loader.tcl (modified) (1 diff)
• spinint.tcl (modified) (1 diff)

trunk/gui/scripts/combobox.tcl

@@ -130 +130 @@
         }
 
-        after 10 [list event generate $itk_component(hull) <<Value>>]
+        after 10 [list catch [list event generate $itk_component(hull) <<Value>>]]
     } elseif {[llength $args] != 0} {
         error "wrong # args: should be \"value ?newval?\""

trunk/gui/scripts/loader.tcl

@@ -217 +217 @@
     #
     set str [$_owner xml get $path.default]
-    if {$str != ""} { after 1000 [itcl::code $this value $str] }
+    if {$str != ""} { after 1500 [itcl::code $this value $str] }
 }
 

trunk/gui/scripts/spinint.tcl

@@ -124 +124 @@
         $itk_component(entry) delete 0 end
         $itk_component(entry) insert 0 $newval
-        after 10 [list event generate $itk_component(hull) <<Value>>]
+        after 10 [list catch [list event generate $itk_component(hull) <<Value>>]]
     } elseif {[llength $args] != 0} {
         error "wrong # args: should be \"value ?newval?\""