no message

original commit: 55309b7c3b58607b647524fb84383e1727d6a1bd
2000-09-27 21:29:01 +00:00 · 2000-09-27 21:29:01 +00:00 · 500dd6a78d
commit 500dd6a78d
parent 1504ed2653
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@ -190,7 +190,7 @@
 	   
 	   [mouse-popup-menu 
 	    (lambda (edit event)
-	      (when (send event button-up?)
+	      (when (send event button-down?)
 		(let ([a (send edit get-admin)])
 		  (when a
 		    (let ([m (make-object popup-menu%)])