From 55b74e277b61674fa9892ab304b4fa6f8da13ca0 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 13 Feb 2012 11:31:46 -0500 Subject: [PATCH] cooking up small example with view-bind-many --- .../examples/color-buttons/color-buttons.rkt | 17 +++++++++++++++++ web-world/examples/color-buttons/view.html | 13 +++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 web-world/examples/color-buttons/color-buttons.rkt create mode 100644 web-world/examples/color-buttons/view.html diff --git a/web-world/examples/color-buttons/color-buttons.rkt b/web-world/examples/color-buttons/color-buttons.rkt new file mode 100644 index 0000000..7de6ab9 --- /dev/null +++ b/web-world/examples/color-buttons/color-buttons.rkt @@ -0,0 +1,17 @@ +#lang planet dyoo/whalesong + +(require (planet dyoo/whalesong/web-world)) + +(define-resource view.html) + +(define bound-view + (view-bind-many view.html + ["red-button" "click" click] + ["white-button" "click" click] + ["blue-button" "click" click] + ["orange-button" "click" click] + ["green-button" "click" click] + ["black-button" "click" click])) + + +(big-bang (initial-view bound-view) \ No newline at end of file diff --git a/web-world/examples/color-buttons/view.html b/web-world/examples/color-buttons/view.html new file mode 100644 index 0000000..318a276 --- /dev/null +++ b/web-world/examples/color-buttons/view.html @@ -0,0 +1,13 @@ + + + + +

This is a header

+ + + + + + + +