pop-up for decorated editor snip on right-button click, not right-button-held-down

svn: r4958
2006-11-27 08:08:23 +00:00 · 2006-11-27 08:08:23 +00:00 · bedaf6bbfd
commit bedaf6bbfd
parent 7b185d5ae4
1 changed files with 1 additions and 1 deletions
--- 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)]