small comment

2012-06-24 20:52:19 -04:00 · 2012-06-24 20:52:19 -04:00 · 8ca2919319
commit 8ca2919319
parent 89b6a14515
1 changed files with 1 additions and 0 deletions
--- a/examples/drag-and-drop/drag-and-drop-2.rkt
+++ b/examples/drag-and-drop/drag-and-drop-2.rkt
@ -79,6 +79,7 @@
 ;; Mouse handling.

 ;; When the mouse is down, select the shape being clicked.
+;; The shape being mousedowned is the one with focus.
 (define (mousedown w v evt)
  (define selected-shape (find-shape (world-shapes w) (view-id v)))
  (make-world (remove selected-shape (world-shapes w))