racket/gui: fix contract of set-value' in gauge%'

collects/mred/private/check.rkt

@@ -116,6 +116,7 @@
   (define check-margin-integer (check-bounded-integer 0 1000 #f))
 
   (define check-gauge-integer (check-bounded-integer 1 1000000 #f))
+  (define check-gauge-range-integer (check-bounded-integer 0 1000000 #f))
 
   (define (check-wheel-step cwho wheel-step)
     (when (and wheel-step

collects/mred/private/mritem.rkt

@@ -509,7 +509,7 @@
      [get-value (entry-point (lambda () (send wx get-value)))]
      [set-value (entry-point
                  (lambda (v)
-                   (check-range-integer '(method gauge% set-value) v)
+                   (check-gauge-range-integer '(method gauge% set-value) v)
                    (when (> v (send wx get-range))
                      (raise-arguments-error (who->name '(method gauge% set-value))
                                             "out of range;\n given value is not between 0 and maximum value"

collects/tests/gracket/windowing.rktl

@@ -629,6 +629,9 @@
     (st 10 g get-range)
     (st 1 g get-value)
 
+    (stv g set-range 100011)
+    (stv g set-value 100010)
+    
     (containee-window-tests g #t #f parent frame 2))
 
   (printf "Slider\n")