1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#lang web-server
(require web-server/lang/web-cell-component)
(define interface-version 'stateless)
(provide start interface-version)
(define (start initial-request)
; A top-level frame must exist
(define counter1 (make-counter))
(define counter2 (make-counter))
; counter1 and counter2 must have been added to the top-level frame
(define include1 (include-counter counter1))
(define include2 (include-counter counter2))
; counter1 and counter2 may have been modified
(send/suspend/url/dispatch
(lambda (embed/url)
(response/xexpr
; The frame (ref) must have been captured, any changes to web-cells after this will be lost
`(html
(body (h2 "Web Cell Test")
(div (h3 "First")
,(include1 embed/url))
(div (h3 "Second")
,(include2 embed/url))))))))
(define (make-counter) (make-web-cell 0))
(define-component (include-counter counter (a-counter) embed/url)
`(div (h3 ,(number->string (web-cell-ref a-counter)))
(a ([href ,(url->string
(embed/url
(lambda _
; A new frame has been created
(define last (web-cell-ref a-counter))
; It is a child of the parent frame, so we can inspect the value
(web-cell-shadow a-counter (add1 last))
; The new frame has been modified
(counter))))])
"+")))
|
