From d65b85ac55b7529d1419cae006609222acd85da2 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Sun, 20 Nov 2011 23:22:22 -0700 Subject: [PATCH] Only try to build the Syntax Check popup menu if there is Syntax Check data --- collects/drracket/private/syncheck/gui.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index baa68ba8d9..7fd8ba38ae 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1021,7 +1021,7 @@ If the namespace does not, they are colored the unbound color. (start-arrow-draw-timer syncheck-arrow-delay)) (let/ec break - (when (send event button-down? 'right) + (when (and arrow-records (send event button-down? 'right)) (define menu (let-values ([(pos text) (get-pos/text event)]) (syncheck:build-popup-menu pos text)))