Changeset 962 for trunk/gui/scripts
- Timestamp:
- Mar 25, 2008 12:19:50 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/gauge.tcl
r738 r962 234 234 switch -- $itk_option(-type) { 235 235 integer { 236 if {![string is integer $nv]} { 236 if {[string length $nv] <= 0 237 || ![string is integer $nv] } { 237 238 error "Should be an integer value" 238 239 } 239 240 } 240 241 real { 241 if {![string is double $nv] 242 if {[string length $nv] <= 0 243 || ![string is double $nv] 242 244 || [regexp -nocase {^(inf|nan)$} $nv]} { 243 245 error "Should be a real number"
Note: See TracChangeset
for help on using the changeset viewer.