From 8ca2919319baf0227ee538723d6667dbb555ed97 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sun, 24 Jun 2012 20:52:19 -0400 Subject: [PATCH] small comment --- examples/drag-and-drop/drag-and-drop-2.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/examples/drag-and-drop/drag-and-drop-2.rkt b/examples/drag-and-drop/drag-and-drop-2.rkt index 84e3b3f..70b603f 100644 --- 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))