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

last bug fixes to hdtch/[i]draw for now

Browse Source 
svn: r2763
This commit is contained in:
Matthias Felleisen 2006-04-24 15:29:45 +00:00
parent 6376643994
commit 9e23d915ee
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,9 +2,6 @@ package draw;
public abstract class World { public abstract class World {
protected Canvas theCanvas; protected Canvas theCanvas;
protected void putCanvas(Canvas c) {
this.theCanvas = c;
};
public boolean bigBang(int width, int height, double s) { public boolean bigBang(int width, int height, double s) {
if (width <= 0) if (width <= 0)
throw new RuntimeException( throw new RuntimeException(

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

@ -155,15 +155,17 @@
(define (bigBangO-double-native this accs gets privates i) (define (bigBangO-double-native this accs gets privates i)
(define theCanvas ((hash-table-get accs 'theCanvas) this)) (define theCanvas ((hash-table-get accs 'theCanvas) this))
(define setCanvas (hash-table-get gets 'theCanvas))
(define width (with-method ([g (theCanvas Canvas-width-get)]) (g '___))) (define width (with-method ([g (theCanvas Canvas-width-get)]) (g '___)))
(define height (with-method ([g (theCanvas Canvas-height-get)]) (g '___))) (define height (with-method ([g (theCanvas Canvas-height-get)]) (g '___)))
;; call only *after* start ;; call only *after* start
(define (on-event world th) (define (on-event world0 th)
(begin-draw-sequence) (begin-draw-sequence)
(send theCanvas copy) (send theCanvas copy)
(send world erase) (send world0 erase)
(let ([world (imperative (th) world)]) (let ([world (imperative (th) world0)])
(send world putCanvas-draw.Canvas theCanvas) (unless (eq? world0 world)
(setCanvas world theCanvas))
(send world draw) (send world draw)
(end-draw-sequence) (end-draw-sequence)
world)) world))