picolisp

commit a10656dc20f660b5b92c5abbe323b5b7495a83b8
parent 33200defcefa72f43a52efc3e1c9349dfc1fd06a
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  7 Aug 2013 07:47:49 +0200

'<canvas>' alternate text
Diffstat:
M
lib/canvas.l
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/canvas.l b/lib/canvas.l
@@ -1,4 +1,4 @@
-# 06aug13abu
+# 07aug13abu
 # (c) Software Lab. Alexander Burger
 
 (allow "!jsDraw" )
@@ -47,14 +47,14 @@
                (cons 'list Opc @)
                (list Opc) ) ) ) ) )
 
-(de <canvas> (Id DX DY)
+(de <canvas> (Id DX DY Alt)
    (prin
       "<canvas id=\"" Id
       "\" width=\"" DX
       "\" height=\"" DY
       "\"" )
    (dfltCss "canvas")
-   (prinl ">" Id "</canvas>" ) )
+   (prinl ">" Alt "</canvas>" ) )
 
 (de jsDraw (Id Dly)
    (http1 "application/octet-stream" 0)