set svn:eol-style
svn: r17123
This commit is contained in:
parent
2fd3c23393
commit
0de55b5f3a
|
@ -4,11 +4,11 @@
|
|||
|
||||
(require 2htdp/universe)
|
||||
|
||||
;; on RETURN stop
|
||||
;; on RETURN stop
|
||||
|
||||
(define (main debug?)
|
||||
(big-bang ""
|
||||
(on-key (lambda (w ke)
|
||||
(on-key (lambda (w ke)
|
||||
(cond
|
||||
[(key=? ke "\r") (stop-with w)]
|
||||
[(= (string-length ke) 1)
|
||||
|
@ -16,8 +16,7 @@
|
|||
[else w])))
|
||||
(state debug?)
|
||||
(on-draw (lambda (w)
|
||||
(place-image
|
||||
(place-image
|
||||
(text w 22 'black)
|
||||
3 3
|
||||
(empty-scene 100 100))))))
|
||||
|
Loading…
Reference in New Issue
Block a user