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

original commit: 0377bda9474f8848a97509ace898174c83361006
2012-11-02 19:37:42 -05:00 · 2012-11-02 19:37:42 -05:00 · 274cce0439
commit 274cce0439
parent d4ac5ab683
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%)])