Changeset 746 for trunk/gui/scripts
- Timestamp:
- May 18, 2007, 3:28:20 PM (17 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/combobox.tcl
r676 r746 130 130 } 131 131 132 after 10 [list event generate $itk_component(hull) <<Value>>]132 after 10 [list catch [list event generate $itk_component(hull) <<Value>>]] 133 133 } elseif {[llength $args] != 0} { 134 134 error "wrong # args: should be \"value ?newval?\"" -
trunk/gui/scripts/loader.tcl
r724 r746 217 217 # 218 218 set str [$_owner xml get $path.default] 219 if {$str != ""} { after 1 000 [itcl::code $this value $str] }219 if {$str != ""} { after 1500 [itcl::code $this value $str] } 220 220 } 221 221 -
trunk/gui/scripts/spinint.tcl
r115 r746 124 124 $itk_component(entry) delete 0 end 125 125 $itk_component(entry) insert 0 $newval 126 after 10 [list event generate $itk_component(hull) <<Value>>]126 after 10 [list catch [list event generate $itk_component(hull) <<Value>>]] 127 127 } elseif {[llength $args] != 0} { 128 128 error "wrong # args: should be \"value ?newval?\""
Note: See TracChangeset
for help on using the changeset viewer.