21 lines
657 B
Racket
21 lines
657 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/web-world))
|
|
|
|
(define view (->view (xexp->dom `(html (head)
|
|
(body (p "hello world, this is a test")
|
|
(div (@ (id "a div"))))))))
|
|
(define new-view
|
|
(view-focus view "a div"))
|
|
|
|
(view-text new-view) ;; should be ""
|
|
|
|
(define updated-new-view
|
|
(update-view-text new-view "some text"))
|
|
|
|
(view-text updated-new-view) ;; should be "some text"
|
|
|
|
(view->xexp (view-up (view-up updated-new-view)))
|
|
;; should be:
|
|
; (html (head) (body (p "hello world, this is a test")
|
|
; (div (@ (id "a div")) "some text"))) |