make popup menus respond to mouse-up events, not mouse-down ones

2012-11-02 19:37:42 -05:00 · 2012-11-02 19:37:42 -05:00 · 0377bda947
commit 0377bda947
parent 27aa999446
1 changed files with 1 additions and 1 deletions
--- 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%)])