suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-15 15:57:31 -07:00
parent 9ef9330d4e
commit 0c37849f81
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/check.rkt
View File

@ -116,6 +116,7 @@
(define check-margin-integer (check-bounded-integer 0 1000 #f)) (define check-margin-integer (check-bounded-integer 0 1000 #f))
(define check-gauge-integer (check-bounded-integer 1 1000000 #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) (define (check-wheel-step cwho wheel-step)
(when (and wheel-step (when (and wheel-step

2
collects/mred/private/mritem.rkt
View File

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

3
collects/tests/gracket/windowing.rktl
View File

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