svn: r7091

2007-08-13 23:18:52 +00:00 · 2007-08-13 23:18:52 +00:00 · 3d3a0d8d60
commit 3d3a0d8d60
parent df0c8c3245
2 changed files with 2 additions and 3 deletions
--- a/collects/htdch/draw/World.java
+++ b/collects/htdch/draw/World.java
@ -1,7 +1,7 @@
 package draw;
-        
+
 public abstract class World {
-    protected Canvas theCanvas;
+    protected Canvas theCanvas = null; // can I do better here? 
    
    /** 
     *@author Matthias Felleisen, Kathy Gray 
--- a/collects/htdch/draw/support.scm
+++ b/collects/htdch/draw/support.scm
@ -182,7 +182,6 @@
        (define (on-event world0 th)
          (begin-draw-sequence)
          (send theCanvas copy)
-          ;(send world0 erase)
          (let ([world (imperative (th) world0)])
 	    (unless (eq? world0 world)
 	      (setCanvas world theCanvas))