Adapt to new generalized spawn boot actions
This commit is contained in:
parent
e2dfe2fe78
commit
2fa90c59b6
|
@ -26,9 +26,10 @@
|
|||
`())))]
|
||||
[_ #f]))
|
||||
(void)
|
||||
(patch-seq
|
||||
(sub (window ? ?) #:meta-level 1)
|
||||
;; (assert 'fullscreen #:meta-level 1)
|
||||
))
|
||||
)))
|
||||
|
||||
(define (spawn-player-avatar)
|
||||
(local-require 2htdp/planetcute)
|
||||
|
@ -56,10 +57,11 @@
|
|||
(move-to x y keys-down)))]
|
||||
[_ #f]))
|
||||
(list 100 100 (set))
|
||||
(patch-seq
|
||||
(update-sprites
|
||||
(simple-sprite -0.5 100 100 (image-width CC) (image-height CC) CC))
|
||||
(sub (frame-event ? ? ? ?) #:meta-level 1)
|
||||
(sub (key-pressed ?))))
|
||||
(sub (key-pressed ?)))))
|
||||
|
||||
(define (spawn-frame-counter)
|
||||
(spawn (lambda (e s)
|
||||
|
|
Loading…
Reference in New Issue