Changeset 442 for trunk/gui/scripts/gauge.tcl

Timestamp:

May 21, 2006 7:30:40 PM (18 years ago)

Author:

mmc

Message:

Fixed the up/down buttons on the <integer> element so they report
min/max limit errors with a nice tooltip, instead of an ugly error
dialog!

File:

• trunk/gui/scripts/gauge.tcl (modified) (1 diff)

trunk/gui/scripts/gauge.tcl

@@ -317 +317 @@
         set val 0
     }
-    value [expr {$val+$delta}]
+    if {[catch {value [expr {$val+$delta}]} result]} {
+        if {[regexp {allowed here is (.+)} $result match newval]} {
+            set _value $newval
+            $itk_component(value) configure -text $newval
+        }
+        if {[regexp {^bad.*: +(.)(.+)} $result match first tail]
+              || [regexp {(.)(.+)} $result match first tail]} {
+            set result "[string toupper $first]$tail"
+        }
+        bell
+        Rappture::Tooltip::cue $itk_component(value) $result
+        return 0
+    }
 }