writing small example with select

2012-05-14 15:16:07 -04:00 · 2012-05-14 15:16:07 -04:00 · 995f093baa
commit 995f093baa
parent ad85814dbd
1 changed files with 14 additions and 0 deletions
--- a/examples/select.rkt
+++ b/examples/select.rkt
@ -0,0 +1,14 @@
+#lang planet dyoo/whalesong
+
+(require (planet dyoo/whalesong/web-world))
+
+
+(define view (xexp->view '(select (@ (id "my-select"))
+                                  (option (@ (value "red")) "Red")
+                                  (option (@ (value "green")) "Green")
+                                  (option (@ (value "blue")) "Blue"))))
+                                  
+
+
+(big-bang 'undefined
+          (initial-view view))