From a2d968a5d2ad01c46eeb35f2907289cd7f69ea84 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Mar 2011 12:35:17 -0600 Subject: [PATCH] fix `init-manual-scrollbars' Closes PR 11781 --- collects/mred/private/mrcanvas.rkt | 4 ++-- collects/tests/gracket/windowing.rktl | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/mrcanvas.rkt b/collects/mred/private/mrcanvas.rkt index a5350f6906..796e30f6ea 100644 --- a/collects/mred/private/mrcanvas.rkt +++ b/collects/mred/private/mrcanvas.rkt @@ -154,8 +154,8 @@ [init-manual-scrollbars (lambda (x-len y-len x-page y-page x-val y-val) (let ([who '(method canvas% init-auto-scrollbars)]) - (when x-len (check-range-integer who x-len)) - (when y-len (check-range-integer who y-len)) + (when x-len (check-gauge-integer who x-len)) + (when y-len (check-gauge-integer who y-len)) (check-gauge-integer who x-page) (check-gauge-integer who y-page) (check-range-integer who x-val) diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl index 820df9a2e8..08b71d5321 100644 --- a/collects/tests/gracket/windowing.rktl +++ b/collects/tests/gracket/windowing.rktl @@ -986,6 +986,8 @@ 'done-sb)) + (stv c init-manual-scrollbars 1000000 1000000 999999 999999 4 5) + (stv c warp-pointer 21 23) (containee-window-tests c #t #t parent frame 0))