changing dwarves-with-remove to use view-bind-many*

bookshelfdave · Feb 13, 2012 · 46c0ba5 · 46c0ba5
1 parent 1a6e082
commit 46c0ba5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/scribblings/manual.scrbl b/scribblings/manual.scrbl
@@ -963,6 +963,7 @@ Common event types include @racket["click"], @racket["mouseenter"], or
 @racket["change"].}  Note that the name of each event should not
 include an @racket["on"] prefix.
 
+
 As an example:
 @codeblock|{
 (define (click-handler w v) ...)

diff --git a/web-world/examples/dwarves-with-remove/dwarves-with-remove.rkt b/web-world/examples/dwarves-with-remove/dwarves-with-remove.rkt
@@ -43,12 +43,10 @@
 ;; The first view consists of index.html.  We attach event handlers
 ;; to each name here.
 (define my-view
-  (foldl (lambda (name view)
-           (view-bind (view-focus view name)
-                      "click"
-                      hide-on-click))
-         (->view index.html)
-         dwarf-names))
+  (view-bind-many* (->view index.html)
+                   (map (lambda (name)
+                          (list name "click" hide-on-click))
+                        dwarf-names)))
 
 
 (big-bang dwarf-names