picolisp

commit f81449347e92956e5e9e8b4fb9207c9a14fa4668
parent 613bd7bdeb959728a15b168162f5e48797b6b3c9
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  6 Aug 2013 17:29:29 +0200

Changed 'canvas' to '<canvas>'
Diffstat:
M
lib/canvas.js
 | 
4
++--
M
lib/canvas.l
 | 
6
+++---

2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/canvas.js b/lib/canvas.js
@@ -1,4 +1,4 @@
-/* 27may13abu
+/* 06aug13abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -8,7 +8,7 @@ function drawCanvas(id, dly) {
    try {
       req.open("POST",
          document.getElementsByTagName("BASE")[0].href + SesId +
-         "!jsDraw?" + id );
+         "!jsDraw?" + id + "&+" + dly);
       req.responseType = "arraybuffer";
    }
    catch (e) {return true;}
diff --git a/lib/canvas.l b/lib/canvas.l
@@ -1,4 +1,4 @@
-# 15may13abu
+# 06aug13abu
 # (c) Software Lab. Alexander Burger
 
 (allow "!jsDraw" )
@@ -56,9 +56,9 @@
       "\">" Id
       "</canvas>" ) )
 
-(de jsDraw (Id)
+(de jsDraw (Id Dly)
    (http1 "application/octet-stream" 0)
-   (let Lst (drawCanvas Id)
+   (let Lst (drawCanvas Id Dly)
       (prinl "Content-Length: " (bytes Lst) "^M")
       (prinl "^M")
       (pr Lst) ) )