Changeset 746 for trunk/gui/scripts/spinint.tcl
- Timestamp:
- May 18, 2007, 3:28:20 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.