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

synchronizing the checkboxes

Browse Source
This commit is contained in:
Danny Yoo 2011-11-22 02:38:50 -05:00
parent d80d7bdb3a
commit 32fb3812d1
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
web-world/examples/hot-cross-buns/hot-cross-buns.rkt
View File

@ -4,6 +4,9 @@
(define base-view (->view index.html)) (define base-view (->view index.html))
(define WORDS (list "hot" "cross" "buns"))
(define (remove-all x elts) (define (remove-all x elts)
(cond (cond
[(empty? elts) [(empty? elts)
@ -25,7 +28,7 @@
[else [else
(remove-all name world)])))) (remove-all name world)]))))
base-view base-view
'("hot" "cross" "buns"))) WORDS))
(define view-with-buttons-and-reset (define view-with-buttons-and-reset
(view-bind (view-focus view-with-buttons "reset") (view-bind (view-focus view-with-buttons "reset")
@ -34,10 +37,25 @@
empty))) empty)))
(define (draw w v) (define (draw world v)
(update-view-text (view-focus v "mydiv") (local ([define view-with-updated-message
(format "~s" w))) (update-view-text (view-focus v "mydiv")
(format "~s" world))])
(foldl (lambda (word a-view)
(local [(define view-on-word
(view-focus a-view word))]
(cond
[(and (view-has-attr? view-on-word "checked")
(not (member word world)))
(remove-view-attr view-on-word "checked")]
[(and (not (view-has-attr? view-on-word "checked"))
(member word world))
(update-view-attr view-on-word "checked" "checked")]
[else
a-view])))
view-with-updated-message
WORDS)))
(big-bang '() (big-bang '()
(initial-view view-with-buttons) (initial-view view-with-buttons-and-reset)
(to-draw draw)) (to-draw draw))