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

avoid scrolling too far for scroll-via-copy

Browse Source 
But scroll-via-copy is still not enabled.
This commit is contained in:
Matthew Flatt 2015-11-25 16:14:13 -07:00
parent 4358d22a0a
commit 79128627d2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gui-lib/mred/private/wxme/editor-canvas.rkt
View File

@ -981,7 +981,8 @@
(let-boxes ([fx 0] (let-boxes ([fx 0]
[old-fy 0] [old-fy 0]
[new-fy 0]) [new-fy 0])
(begin (let ([x (min x scroll-width)]
[y (min y scroll-height)])
(convert-scroll-to-location x y fx new-fy) (convert-scroll-to-location x y fx new-fy)
(convert-scroll-to-location old-x old-y #f old-fy)) (convert-scroll-to-location old-x old-y #f old-fy))
(let-boxes ([vx 0][vy 0][vw 0][vh 0]) (let-boxes ([vx 0][vy 0][vw 0][vh 0])