suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r7091

Browse Source
This commit is contained in:
Matthias Felleisen 2007-08-13 23:18:52 +00:00
parent df0c8c3245
commit 3d3a0d8d60
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdch/draw/World.java
View File

@ -1,7 +1,7 @@
package draw; package draw;
public abstract class World { public abstract class World {
protected Canvas theCanvas; protected Canvas theCanvas = null; // can I do better here?
/** /**
*@author Matthias Felleisen, Kathy Gray *@author Matthias Felleisen, Kathy Gray

1
collects/htdch/draw/support.scm
View File

@ -182,7 +182,6 @@
(define (on-event world0 th) (define (on-event world0 th)
(begin-draw-sequence) (begin-draw-sequence)
(send theCanvas copy) (send theCanvas copy)
;(send world0 erase)
(let ([world (imperative (th) world0)]) (let ([world (imperative (th) world0)])
(unless (eq? world0 world) (unless (eq? world0 world)
(setCanvas world theCanvas)) (setCanvas world theCanvas))