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

fix `init-manual-scrollbars'

Browse Source 
Closes PR 11781
This commit is contained in:
Matthew Flatt 2011-03-15 12:35:17 -06:00
parent 17a1322fe5
commit a2d968a5d2
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/mrcanvas.rkt
View File

@ -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)

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

@ -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))