From 69832d99258bdb14e756b399c9fbae3155f1dddf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 9 Sep 2011 15:34:17 -0500 Subject: [PATCH] fix stupidity --- collects/drracket/private/module-language.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 747f22a523..fc2862dc3f 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -1375,11 +1375,15 @@ (set-error-range-clear-highlight! an-error-range #f))) (super on-event evt)] [(send evt button-down? 'left) + (define used-click? #f) (for ([an-error-range (in-list error-ranges)]) (define-values (x1 y1 x2 y2 x3 y3 x4 y4) (get-box an-error-range)) (when (and (<= x1 mx x2) (<= y2 my y3)) - (set-position (error-range-start an-error-range))))] + (set! used-click? #t) + (set-position (error-range-start an-error-range)))) + (unless used-click? + (super on-event evt))] [else (super on-event evt)]))