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

fixing indentation

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

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

@ -24,14 +24,14 @@
(define (add-fresh-shape w v)
(define-values (max-width max-height) (width-and-height v "playground"))
(define new-world (make-world (cons (make-shape (fresh-id)
(random max-width)
(random max-height))
(random max-width)
(random max-height))
(world-shapes w))
(world-dragged w)))
new-world)
;; Helper: produces the width and height of the element with the given id.
(define (width-and-height v element-id)
(define focused (view-focus v element-id))
(values (view-width focused)
@ -103,8 +103,8 @@
(make-shape (shape-id (world-dragged w))
left
top))]
[else
w]))
[else
w]))
(define (normalize-mouse-event-coordinates v evt)
(values (- (event-ref evt "pageX")
@ -122,8 +122,7 @@
["add" "click" add-fresh-shape]
["playground" "mousemove" mousemove]
["playground" "mouseup" mouseup]))
(big-bang (make-world (list) #f)
(initial-view the-view)
(to-draw draw))