From e8295ee015956a950f2f79e4961424400c3044b6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Oct 1997 17:10:13 +0000 Subject: [PATCH] fixed bug in range highlighting -- never allow negative width rectangles original commit: 48d338fdbab2b14aa87501a9ae1edfa804d80618 --- collects/mred/edit.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index c68aab8d..c2deaa25 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -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)))))