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

set svn:eol-style

Browse Source 
svn: r17123
This commit is contained in:
Eli Barzilay 2009-12-01 02:19:38 +00:00
parent 2fd3c23393
commit 0de55b5f3a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/2htdp/tests/stop.ss
View File

@ -4,11 +4,11 @@
(require 2htdp/universe) (require 2htdp/universe)
;; on RETURN stop ;; on RETURN stop
(define (main debug?) (define (main debug?)
(big-bang "" (big-bang ""
(on-key (lambda (w ke) (on-key (lambda (w ke)
(cond (cond
[(key=? ke "\r") (stop-with w)] [(key=? ke "\r") (stop-with w)]
[(= (string-length ke) 1) [(= (string-length ke) 1)
@ -16,8 +16,7 @@
[else w]))) [else w])))
(state debug?) (state debug?)
(on-draw (lambda (w) (on-draw (lambda (w)
(place-image (place-image
(text w 22 'black) (text w 22 'black)
3 3 3 3
(empty-scene 100 100)))))) (empty-scene 100 100))))))