suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small comment

Browse Source
This commit is contained in:
Danny Yoo 2012-06-24 20:52:19 -04:00
parent 89b6a14515
commit 8ca2919319
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/drag-and-drop/drag-and-drop-2.rkt
View File

@ -79,6 +79,7 @@
;; Mouse handling. ;; Mouse handling.
;; When the mouse is down, select the shape being clicked. ;; 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 (mousedown w v evt)
(define selected-shape (find-shape (world-shapes w) (view-id v))) (define selected-shape (find-shape (world-shapes w) (view-id v)))
(make-world (remove selected-shape (world-shapes w)) (make-world (remove selected-shape (world-shapes w))