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

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

@ -31,7 +31,7 @@
new-world) new-world)
;; Helper: produces the width and height of the element with the given id.
(define (width-and-height v element-id) (define (width-and-height v element-id)
(define focused (view-focus v element-id)) (define focused (view-focus v element-id))
(values (view-width focused) (values (view-width focused)
@ -126,4 +126,3 @@
(big-bang (make-world (list) #f) (big-bang (make-world (list) #f)
(initial-view the-view) (initial-view the-view)
(to-draw draw)) (to-draw draw))