- changed the interface of bigBang; it now starts the canvas, too.

svn: r514
This commit is contained in:
Matthias Felleisen 2005-08-01 00:17:00 +00:00
parent 6a6774d336
commit 95c6f7285b
3 changed files with 17 additions and 16 deletions

View File

@ -72,7 +72,9 @@
(sleep-for-a-while s))
|#
(define/provide (bigBang-double-native this accs gets privates #;width #;height i)
(define/provide (bigBang-int-int-double-native this accs gets privates width height i)
(define theCanvas ((hash-table-get accs 'theCanvas) this))
(send theCanvas start-int-int width height)
(big-bang i this)
(on-tick-event
(lambda (world)

View File

@ -4,7 +4,7 @@ public abstract class World {
public Canvas theCanvas = new Canvas();
public native boolean bigBang(/* int width, int height,*/ double s);
public native boolean bigBang(int width, int height, double s);
public native boolean endOfTime();

View File

@ -1,5 +1,4 @@
This `draw' package provides libraries for modeling in a visual world. It
consists of two sets of classes:
This `draw' package provides libraries for modeling in a visual world:
+----------+ +----------+
@ -30,16 +29,16 @@ consists of two sets of classes:
+ White
+ Yellow
+-------+
| Color |
+-------+
|
/ \
---
|
------------------------------------------
| | | | |
+-------+ +-------+ +-------+ +-------+ +-------+
| Blue | | Green | | Red | | White | | Yellow|
+-------+ +-------+ +-------+ +-------+ +-------+
+-------+
| Color |
+-------+
|
/ \
---
|
------------------------------------------
| | | | |
+-------+ +-------+ +-------+ +-------+ +-------+
| Blue | | Green | | Red | | White | | Yellow|
+-------+ +-------+ +-------+ +-------+ +-------+