From 500dd6a78d35542dd9d9600534fa4626877696fd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 27 Sep 2000 21:29:01 +0000 Subject: [PATCH] no message original commit: 55309b7c3b58607b647524fb84383e1727d6a1bd --- collects/framework/keymap.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index e4cb16f8..c92270b6 100644 --- 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%)])