Changeset 5055 for branches/1.3/gui/scripts/gauge.tcl

Timestamp:

Mar 3, 2015, 1:28:40 PM (10 years ago)

Author:

dkearney

Message:

merging vtk isosurface viewer and gauge widget changes for adjustable legend ranges feature from trunk to branch 1.3

Location:

branches/1.3

Files:

• . (modified) (1 prop)
• gui/scripts/gauge.tcl (modified) (3 diffs)

branches/1.3/gui/scripts/gauge.tcl

@@ -42 +42 @@
     itk_option define -sampleheight sampleHeight SampleHeight 0
     itk_option define -log log Log ""
+    itk_option define -validatecommand validateCommand ValidateCommand ""
 
     constructor {args} { # defined below }
@@ -236 +237 @@
             }
             real {
-                # "scan" will reject the number if the string is "NaN" or
-                # "Inf" or the empty string.  It also is accepts large numbers
-                # (e.g. 111111111111111111111) that "string is double"
-                # rejects.  The problem with "scan" is that it doesn't care if
-                # there are extra characters trailing the number (eg. "123a").
-                # The extra %s substitution is used to detect this case.
+                # "scan" will reject the number if the string is "NaN" or
+                # "Inf" or the empty string.  It also is accepts large numbers
+                # (e.g. 111111111111111111111) that "string is double"
+                # rejects.  The problem with "scan" is that it doesn't care if
+                # there are extra characters trailing the number (eg. "123a").
+                # The extra %s substitution is used to detect this case.
                 if { [scan $nv "%g%s" dummy1 dummy2] != 1 } {
                     error "bad value \"$nv\": should be a real number"
@@ -288 +289 @@
                 error "maximum value allowed here is $convMaxVal"
             }
+        }
+
+        #
+        # If there's a -validatecommand option, then invoke the code
+        # now to check the new value.
+        #
+        if {[string length $itk_option(-validatecommand)] > 0} {
+            set cmd "uplevel #0 [list $itk_option(-validatecommand) [list $newval]]"
+            set result [eval $cmd]
         }