From 3d3a0d8d6095d35220361b5d2c91b57cc330a2b4 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 13 Aug 2007 23:18:52 +0000 Subject: [PATCH] svn: r7091 --- collects/htdch/draw/World.java | 4 ++-- collects/htdch/draw/support.scm | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/htdch/draw/World.java b/collects/htdch/draw/World.java index 3c20847b88..ad683f5883 100644 --- 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 diff --git a/collects/htdch/draw/support.scm b/collects/htdch/draw/support.scm index 2a3070159b..656b25a6dd 100644 --- 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))