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 84639b4f0aff1cc5f324f174b28a96764ff313bd
parent f81449347e92956e5e9e8b4fb9207c9a14fa4668
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  6 Aug 2013 18:01:47 +0200

Changed 'canvas' to '<canvas>'
(Last modification should have been: Pass delay-argument to 'drawCanvas'
Diffstat:
MCHANGES | 2++
Mlib/canvas.l | 9+++++----
2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/CHANGES b/CHANGES @@ -1,4 +1,6 @@ * DDsep13 picoLisp-3.1.4 + Changed 'canvas' to '<canvas>' + Pass delay-argument to 'drawCanvas' 'grid' wrap flags 'ssl' timeout 'casq' flow function diff --git a/lib/canvas.l b/lib/canvas.l @@ -48,13 +48,14 @@ (csMiterLimit V) (csGlobalCompositeOperation V) ) -(de canvas (Id DX DY) - (prinl +(de <canvas> (Id DX DY) + (prin "<canvas id=\"" Id "\" width=\"" DX "\" height=\"" DY - "\">" Id - "</canvas>" ) ) + "\"" ) + (dfltCss "canvas") + (prinl ">" Id "</canvas>" ) ) (de jsDraw (Id Dly) (http1 "application/octet-stream" 0)