Changeset 5661 for branches/1.3/gui/scripts/integerentry.tcl
- Timestamp:
- Jun 5, 2015, 10:16:12 AM (9 years ago)
- Location:
- branches/1.3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/integerentry.tcl
r3647 r5661 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: IntegerEntry - widget for entering integer values … … 94 94 # 95 95 set str [string trim [$_owner xml get $path.default]] 96 if {"" != $str != ""} { 97 $itk_component(spinner) value $str 96 if {"" != $str != ""} { 97 $itk_component(spinner) value $str 98 98 } 99 99 }
Note: See TracChangeset
for help on using the changeset viewer.