From 0c37849f81e6a75b38b119b16aa3b09db57bae37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 15 Feb 2013 15:57:31 -0700 Subject: [PATCH] racket/gui: fix contract of `set-value' in `gauge%' --- collects/mred/private/check.rkt | 1 + collects/mred/private/mritem.rkt | 2 +- collects/tests/gracket/windowing.rktl | 3 +++ 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/check.rkt b/collects/mred/private/check.rkt index 32cfc070cf..4896e2ceb2 100644 --- a/collects/mred/private/check.rkt +++ b/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 diff --git a/collects/mred/private/mritem.rkt b/collects/mred/private/mritem.rkt index 76cb3b5762..ba81d0a094 100644 --- a/collects/mred/private/mritem.rkt +++ b/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" diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl index 01ab90bc2d..71df08bfb0 100644 --- a/collects/tests/gracket/windowing.rktl +++ b/collects/tests/gracket/windowing.rktl @@ -628,6 +628,9 @@ (stv g set-range 10) (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))