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

fix pasteboard rubber-band drawing

Browse Source 
svn: r14820

original commit: cee5d694ad4f35db3a40175f1c7532e59ffc40b5
This commit is contained in:
Matthew Flatt 2009-05-14 19:37:08 +00:00
parent 9702e4e3b4
commit e020e87698
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/pasteboard.ss
View File

@ -166,8 +166,8 @@
(define/private (rubber-band x y w h) (define/private (rubber-band x y w h)
(when (and s-admin (when (and s-admin
(positive? w) (not (zero? w))
(positive? h)) (not (zero? h)))
(let-values ([(x w) (let-values ([(x w)
(if (w . < . 0) (if (w . < . 0)
(values (+ x w) (- w)) (values (+ x w) (- w))