diff --git a/collects/htdch/draw/Canvas.java b/collects/htdch/draw/Canvas.java index 3cc9e0108a..6b73f060b4 100644 --- a/collects/htdch/draw/Canvas.java +++ b/collects/htdch/draw/Canvas.java @@ -23,6 +23,4 @@ public class Canvas { public native boolean clearRect(Posn p, int width, int height, Color c); public native boolean clearLine(Posn p0, Posn p1, Color c); - - // public native boolean sleepForAWhile(int s); } diff --git a/collects/htdch/draw/World-native-methods.ss b/collects/htdch/draw/World-native-methods.ss index f1c02429b6..85b372645e 100644 --- a/collects/htdch/draw/World-native-methods.ss +++ b/collects/htdch/draw/World-native-methods.ss @@ -72,7 +72,7 @@ (sleep-for-a-while s)) |# - (define/provide (bigBang-double-native this accs gets privates i) + (define/provide (bigBang-double-native this accs gets privates #;width #;height i) (big-bang i this) (on-tick-event (lambda (world) @@ -94,20 +94,6 @@ ;; (union Char Symbol) -> String (define (keyevent->string ke) (if (char? ke) (string ke) (symbol->string ke))) - -#| - (define/provide (draw-native this accs gets privates) - (error 'draw "abstract method")) - - (define/provide (erase-native this accs gets privates) - (error 'erase "abstract method")) - - (define/provide (onTick-native this accs gets privates) - (error 'onTick "abstract method")) - - (define/provide (onKeyEvent-java.lang.String-native this accs gets privates ke) - (error 'onKeyEvent "abstract method")) -|# (define last-world #f) diff --git a/collects/htdch/draw/World.java b/collects/htdch/draw/World.java index 03a25975a7..c8951b669f 100644 --- a/collects/htdch/draw/World.java +++ b/collects/htdch/draw/World.java @@ -2,9 +2,9 @@ package draw; public abstract class World { - Canvas theCanvas = new Canvas(); + public Canvas theCanvas = new Canvas(); - public native boolean bigBang(double s); + public native boolean bigBang(/* int width, int height,*/ double s); public native boolean endOfTime();