From c95509cab9a73969f69ae7ad00c23bb766af1359 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 26 Aug 2011 22:31:36 -0400 Subject: [PATCH] example for bind --- web-world/examples/field/field.rkt | 32 +++++++++++++++++++++++++++++ web-world/examples/field/index.html | 12 +++++++++++ 2 files changed, 44 insertions(+) create mode 100644 web-world/examples/field/field.rkt create mode 100644 web-world/examples/field/index.html diff --git a/web-world/examples/field/field.rkt b/web-world/examples/field/field.rkt new file mode 100644 index 0000000..9279a2a --- /dev/null +++ b/web-world/examples/field/field.rkt @@ -0,0 +1,32 @@ +#lang planet dyoo/whalesong +(require (planet dyoo/whalesong/web-world) + (planet dyoo/whalesong/resource)) + +(define-resource index.html) +(define-resource style.css) + +;; The world is a string which represents the name of the user. + + +;; on-click: world view -> world +;; When the user clicks on the button, grab at the text of the +;; text-field. +(define (on-click w v) + (view-text (view-focus v "#text-field"))) + + +;; on-draw: world view -> view +;; Take the view, and replace the template with the world value. +(define (on-draw w v) + (view-text (view-focus v "#template") + w)) + + +(define my-view (view-bind (view-focus (resource->view index.html) + "#button") + "click" + on-click)) + +(big-bang "Jane Doe" + (initial-view my-view) + (to-draw draw)) diff --git a/web-world/examples/field/index.html b/web-world/examples/field/index.html new file mode 100644 index 0000000..2107f8b --- /dev/null +++ b/web-world/examples/field/index.html @@ -0,0 +1,12 @@ + + + My simple program + + + + + + +

Hello fill-me-in!

+ +