suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update web cell API

Browse Source 
svn: r6452
This commit is contained in:
Jay McCarthy 2007-06-01 18:05:50 +00:00
parent 9a7f0d4bed
commit d07341dc9d
2 changed files with 8 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss
View File

@ -7,17 +7,17 @@
(define (start _)
(main-page))
(define the-counter (make-web-cell:local 0))
(define the-header (make-web-cell:local (box "Main page")))
(define the-counter (make-web-cell 0))
(define the-header (make-web-cell (box "Main page")))
(define (counter)
(send/suspend/dispatch
(lambda (embed/url)
`(html (h2 ,(number->string (web-cell:local-ref the-counter)))
`(html (h2 ,(number->string (web-cell-ref the-counter)))
(a ([href ,(embed/url
(lambda _
(web-cell:local-mask the-counter
(add1 (web-cell:local-ref the-counter)))
(web-cell-shadow the-counter
(add1 (web-cell-ref the-counter)))
(counter)))])
"Increment")
(br)
@ -29,11 +29,11 @@
(define (main-page)
(send/suspend/dispatch
(lambda (embed/url)
`(html (h2 ,(unbox (web-cell:local-ref the-header)))
`(html (h2 ,(unbox (web-cell-ref the-header)))
(form ([method "POST"]
[action ,(embed/url
(lambda (req)
(set-box! (web-cell:local-ref the-header)
(set-box! (web-cell-ref the-header)
(extract-binding/single 'header (request-bindings req)))
(main-page)))])
(input ([type "text"] [name "header"]))
@ -43,4 +43,4 @@
(lambda _
(counter)
(main-page)))])
"View Counter"))))))
"View Counter"))))))

11
collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss
View File

@ -1,11 +0,0 @@
(module jas01-fix-param mzscheme
(require (lib "servlet.ss" "web-server"))
(provide get-time)
(define load-time
(make-web-cell:local #f))
(define (get-time)
(web-cell:local-ref load-time))
(web-cell:local-set! load-time (current-seconds)))