improved release test

svn: r18519
2010-03-12 03:28:26 +00:00 · 2010-03-12 03:28:26 +00:00 · b4da375084
commit b4da375084
parent d4adb4456d
1 changed files with 2 additions and 1 deletions
--- a/collects/2htdp/tests/release.ss
+++ b/collects/2htdp/tests/release.ss
@ -8,7 +8,7 @@
            (on-draw (lambda (n)
                       (if (string? n)
                           (text (string-append "stopped: " n) 11 'red)
-                           (circle (+ 100 n) 'solid 'red)))
+                           (text "hold down a" 11 'blue)))
                     500 500)
            (on-tick (lambda (x) (if (string? x) x (add1 x)))
                     r)
@ -23,3 +23,4 @@
                          (if (key=? "a" key) 
                              1
                              n)))))
+(main 1)