svn: r13080

collects/2htdp/private/universe.ss

@@ -61,7 +61,7 @@
               (define u (bundle-state r))
               (set! worlds (bundle-low r))
               (set! universe u)
-              (unless (boolean? to-string) (send gui add (to-string u)))
+              (unless (boolean? to-string) (send gui add (to-string worlds u)))
               (broadcast (bundle-mails r))))))
       
       (def/cback private (pmsg world received) on-msg)
@@ -219,6 +219,7 @@
 (provide 
  world?  ;; Any -> Boolean 
  world=? ;; World World -> Boolean 
+ world-name ;; World -> Symbol 
  world1  ;; sample worlds 
  world2
  world3)

collects/2htdp/private/world.ss

@@ -278,7 +278,8 @@
       ;; -------------------------------------------------------------------------
       ;; initialize the world and run 
       (super-new)
-      (start!)))))
+      (start!)
+      (when (stop-when world) (stop! world))))))
 
 ;; -----------------------------------------------------------------------------
 (define-runtime-path break-btn:path '(lib "icons/break.png"))

collects/2htdp/test/world0-stops.ss

@@ -0,0 +1,5 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+;; about the language level of this file in a form that our tools can easily process.
+#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname world0-stops) (read-case-sensitive #t) (teachpacks ((lib "universe.ss" "teachpack" "2htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "universe.ss" "teachpack" "2htdp")))))
+
+(big-bang 0 (stop-when zero?) (on-tick add1))

collects/2htdp/universe.ss

@@ -228,6 +228,7 @@
  ;; type World 
  world?    ;; Any -> Boolean 
  world=?   ;; World World -> Boolean 
+ world-name ;; World -> Symbol 
  world1    ;; sample worlds 
  world2
  world3