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

fixed bug in range highlighting -- never allow negative width rectangles

Browse Source 
original commit: 48d338fdbab2b14aa87501a9ae1edfa804d80618
This commit is contained in:
Robby Findler 1997-10-14 17:10:13 +00:00
parent 4f27b39975
commit e8295ee015
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/edit.ss
View File

@ -334,7 +334,9 @@
[right (if (number? (rectangle-right rectangle))
(rectangle-right rectangle)
(+ view-x view-width))]
[bottom (rectangle-bottom rectangle)])
[bottom (rectangle-bottom rectangle)]
[width (max 0 (- right left))]
[height (max 0 (- bottom top))])
(let/ec k
(cond
[(and (not before)
@ -366,8 +368,8 @@
(send dc draw-rectangle
(+ left dx)
(+ top dy)
(- right left)
(- bottom top))
width
height)
(send dc set-logical-function old-logical-function)
(send dc set-pen old-pen)
(send dc set-brush old-brush)))))