picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/canvas.js | 4++--
Mlib/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) ) )