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 @@ + +
+ + +