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

view-prepend-child

Browse Source
This commit is contained in:
Danny Yoo 2012-01-12 11:28:37 -05:00
parent 729e61cfae
commit 61d6774a14
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
web-world/main.rkt
View File

@ -20,7 +20,9 @@
(all-from-out "event.rkt")) (all-from-out "event.rkt"))
(provide view-bind-many (provide view-bind-many
view-bind-many*) view-bind-many*
view-prepend-child)
(provide (rename-out [internal-big-bang big-bang] (provide (rename-out [internal-big-bang big-bang]
[big-bang big-bang/f] [big-bang big-bang/f]
@ -123,3 +125,16 @@
(third id+type+function))) (third id+type+function)))
a-view a-view
listof-id+type+function)) listof-id+type+function))
(define (view-prepend-child a-view c)
(unless (view? a-view)
(raise-type-error 'view-prepend-child
"view"
a-view))
(cond
[(view-down? a-view)
(view-insert-left (view-down a-view) c)]
[else
(view-append-child a-view c)]))