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

fix pasteboard rubber-band drawing

Browse Source 
svn: r14820
This commit is contained in:
Matthew Flatt 2009-05-14 19:37:08 +00:00
parent ef9ee828bf
commit cee5d694ad
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))