Changeset 738 for trunk/gui/scripts/gauge.tcl
- Timestamp:
- May 16, 2007 7:37:45 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/gauge.tcl
r730 r738 234 234 switch -- $itk_option(-type) { 235 235 integer { 236 if {![string is integer -strict$nv]} {236 if {![string is integer $nv]} { 237 237 error "Should be an integer value" 238 238 } 239 239 } 240 240 real { 241 if {![string is double -strict$nv]241 if {![string is double $nv] 242 242 || [regexp -nocase {^(inf|nan)$} $nv]} { 243 243 error "Should be a real number"
Note: See TracChangeset
for help on using the changeset viewer.