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

updating the select example to not printf

Browse Source
This commit is contained in:
Danny Yoo 2012-05-14 16:23:57 -04:00
parent 8397c4bece
commit e804a8c52b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/select.rkt
View File

@ -17,11 +17,10 @@
(span (@ (id "fill-me-in"))))))) (span (@ (id "fill-me-in")))))))
(define (when-select-changed w v) (define (when-select-changed w v)
(printf "I see: ~s\n" (view-form-value (view-focus v "my-select")))
(view-form-value (view-focus v "my-select"))) (view-form-value (view-focus v "my-select")))
(define bound-view (view-bind-many view ["my-select" "change" when-select-changed])) (define bound-view (view-bind-many view ["my-select" "change" when-select-changed]))
(big-bang "nothing yet" (big-bang "nothing yet"
(initial-view bound-view) (initial-view bound-view)
(to-draw draw)) (to-draw draw))