#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/web-world)
(planet dyoo/whalesong/resource))
(define-resource view.html)
(define (click w v)
(view-form-value v))
(define bound-view
(view-bind-many view.html
["red-button" "click" click]
["gray-button" "click" click]
["blue-button" "click" click]
["orange-button" "click" click]
["green-button" "click" click]
["black-button" "click" click]))
(define (draw w v)
(define view-on-header (view-focus v "header"))
(update-view-css view-on-header "color" w))
(big-bang "Black"
(initial-view bound-view)
(to-draw draw))