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

trying to write dwarves

Browse Source
This commit is contained in:
Danny Yoo 2011-08-29 07:09:40 -04:00
parent 12799cf5f1
commit 89dc2f3023
3 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
web-world/dwarves/dwarves.rkt Normal file
View File

@ -0,0 +1,39 @@
#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/web-world))
(define-resource index.html)
;; make-item: string -> view
(define (make-item name)
(view-bind (sexp->view `(li ,name))
"click"
hide-on-click))
;; When a dwarf clicks, it hides!
(define (hide-on-click w v)
(view-hide v))
(define dwarf-names
'("Doc" "Grumpy" "Happy" "Sleepy" "Bashful" "Sneezy" "Dopey"))
;; Update the view so it shows the next dwarf on the scene,
;; until we're all done.
(define (draw w v)
(cond [(< w (length dwarf-names))
(view-append (view-focus v "ul")
(make-item (list-ref dwarf-names w)))]
[else
v]))
;; tick: world view -> world
(define (tick w v)
(add1 w))
(big-bang 0
(initial-view index.html)
(on-tick tick 1)
(to-draw draw))

6
web-world/dwarves/index.html Normal file
View File

@ -0,0 +1,6 @@
<html>
<head><title>Dwarves</title></head>
<body>
<ul id="#list"></ul>
</body>
</html>

3
web-world/info.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang setup/infotab
(define compile-omit-paths '("examples"))