explicitly discard patseboard mouse events when not handled in universe

2010-11-09 10:35:06 -07:00 · 2010-11-09 10:35:06 -07:00 · 7ff8ce61db
commit 7ff8ce61db
parent dd9ab8f2a4
1 changed files with 8 additions and 1 deletions
--- a/collects/2htdp/private/world.rkt
+++ b/collects/2htdp/private/world.rkt
@ -157,7 +157,14 @@
                        (pkey e:str))))))))
      
      (define/private (deal-with-mouse %)
-        (if (not on-mouse) %
+        (if (not on-mouse) 
+            ;; No mouse handler => discard mouse events (so snip are not selected
+            ;;  in the pasteboard, for example
+            (class %
+              (super-new)
+              (define/override (on-event e)
+                (void)))
+            ;; Mouse handler => handle mouse events
            (class %
              (super-new)
              (define/override (on-event e)