#lang web-server
(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 (include-counter a-counter)
  (let/cc k
    (define (generate)
      (k
       (lambda (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
                              (generate))))])
                  "+")))))
    (generate)))

 A top-level frame must exist
 counter1 and counter2 must have been added to the top-level frame    
 counter1 and counter2 may have been modified
 The frame (ref) must have been captured, any changes to web-cells after this will be lost
 A new frame has been created
 It is a child of the parent frame, so we can inspect the value
 The new frame has been modified
#lang web-server
(define interface-version 'stateless)
(provide start interface-version)

(define (start initial-request)
  (define counter1 (make-counter))
  (define counter2 (make-counter))
  (define include1 (include-counter counter1))
  (define include2 (include-counter counter2))
  (send/suspend/url/dispatch
   (lambda (embed/url)
     (response/xexpr
      `(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 (include-counter a-counter)
  (let/cc k
    (define (generate)
      (k
       (lambda (embed/url)
         `(div (h3 ,(number->string (web-cell-ref a-counter)))
               (a ([href ,(url->string
                           (embed/url
                            (lambda _
                              (define last (web-cell-ref a-counter))
                              (web-cell-shadow a-counter (add1 last))
                              (generate))))])
                  "+")))))
    (generate)))
