From 52ac3da7bdadc90c7989e975e36d342632363d8b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Oct 2015 10:36:27 -0600 Subject: [PATCH] allow 0 as initial value for manual scrollbars Broken by 4ad47927. --- gui-lib/mred/private/mrcanvas.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gui-lib/mred/private/mrcanvas.rkt b/gui-lib/mred/private/mrcanvas.rkt index 03f88faf..6d7ac188 100644 --- a/gui-lib/mred/private/mrcanvas.rkt +++ b/gui-lib/mred/private/mrcanvas.rkt @@ -180,8 +180,8 @@ (when y-len (check-gauge-integer who y-len)) (check-gauge-integer who x-page) (check-gauge-integer who y-page) - (check-gauge-integer who x-val) - (check-gauge-integer who y-val) + (check-gauge-range-integer who x-val) + (check-gauge-range-integer who y-val) (when (and x-len (< x-len x-val)) (raise-arguments-error (who->name who) "horizontal value is larger than the horizontal range"