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

allow 0 as initial value for manual scrollbars

Browse Source 
Broken by 4ad47927.
This commit is contained in:
Matthew Flatt 2015-10-04 10:36:27 -06:00
parent a948c8a2f0
commit 52ac3da7bd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mred/private/mrcanvas.rkt
View File

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