picolisp

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:
M
CHANGES
 | 
2
++
M
lib/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)