From 274cce043960a51b5b77c4648a7124b2bfdd70c3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 2 Nov 2012 19:37:42 -0500
Subject: [PATCH] make popup menus respond to mouse-up events, not mouse-down
 ones

original commit: 0377bda9474f8848a97509ace898174c83361006
---
 collects/framework/private/keymap.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/keymap.rkt b/collects/framework/private/keymap.rkt
index 4c9fdd0e..6556aa5f 100644
--- a/collects/framework/private/keymap.rkt
+++ b/collects/framework/private/keymap.rkt
@@ -337,7 +337,7 @@
            
            [mouse-popup-menu 
             (λ (edit event)
-              (when (send event button-down?)
+              (when (send event button-up?)
                 (let ([a (send edit get-admin)])
                   (when a
                     (let ([m (make-object popup-menu%)])