From 2508db4d994c020148a40a27730d2a5ffb99dac8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 27 Nov 2006 08:08:23 +0000 Subject: [PATCH] pop-up for decorated editor snip on right-button click, not right-button-held-down svn: r4958 original commit: bedaf6bbfdea186b3acbf5b20e6f2c8bab452252 --- collects/framework/decorated-editor-snip.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss index 61e8864a..10c8f1c2 100644 --- a/collects/framework/decorated-editor-snip.ss +++ b/collects/framework/decorated-editor-snip.ss @@ -35,7 +35,7 @@ (inherit get-admin) (define/override (on-event dc x y editorx editory evt) (cond - [(send evt get-right-down) + [(eq? (send evt get-event-type) 'right-down) (let ([sx (- (send evt get-x) x)] [sy (- (send evt get-y) y)] [bil (box 0)]