picolisp

commit 9016f18805253d3cee05b5f2e28fe59f830d0d94
parent 048e83a861d4849e16625881afe36ca6066b6146
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 27 May 2013 09:18:18 +0200

Canvas single shot operation
Diffstat:
M
lib/canvas.js
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/canvas.js b/lib/canvas.js
@@ -1,4 +1,4 @@
-/* 21may13abu
+/* 27may13abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -121,7 +121,8 @@ function drawCanvas(id, dly) {
             }
          }
       }
-      setTimeout(function() {drawCanvas(id, dly)}, dly);
+      if (dly >= 0)
+         setTimeout(function() {drawCanvas(id, dly)}, dly);
    }
    try {req.send(null);}
    catch (e) {