From d07341dc9d9cbf980144c40ca5d82bd4df541d11 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 1 Jun 2007 18:05:50 +0000 Subject: [PATCH] Update web cell API svn: r6452 --- .../servlets/tests/new-suite/counter-cells.ss | 16 ++++++++-------- .../servlets/tests/new-suite/jas01-fix-param.ss | 11 ----------- 2 files changed, 8 insertions(+), 19 deletions(-) delete mode 100644 collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss index 139c9518b3..3abc279bad 100644 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss +++ b/collects/web-server/default-web-root/servlets/tests/new-suite/counter-cells.ss @@ -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")))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss b/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss deleted file mode 100644 index 83d78d6e7c..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/new-suite/jas01-fix-param.ss +++ /dev/null @@ -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)))