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

small bug in new world code

Browse Source 
svn: r13049
This commit is contained in:
Matthias Felleisen 2009-01-09 19:55:48 +00:00
parent 3f44589c69
commit 72d904d2d9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/2htdp/private/world.ss
View File

@ -293,16 +293,17 @@
(inherit-field world0 tick key mouse rec draw rate width height) (inherit-field world0 tick key mouse rec draw rate width height)
(inherit show callback-stop!) (inherit show callback-stop!)
;; Frame Custodian -> (-> Void) ;; Frame Custodian ->* (-> Void) (-> Void)
;; adds the stop animation and image creation button, ;; adds the stop animation and image creation button,
;; whose callbacks runs as a thread in the custodian ;; whose callbacks runs as a thread in the custodian
;; provide a function for switching button enabling
(define/augment (create-frame frm play-back-custodian) (define/augment (create-frame frm play-back-custodian)
(define p (new horizontal-pane% [parent frm][alignment '(center center)])) (define p (new horizontal-pane% [parent frm][alignment '(center center)]))
(define (switch) (define (switch)
(send stop-button enable #f) (send stop-button enable #f)
(send image-button enable #t)) (send image-button enable #t))
(define (stop) (send stop-button enable #f)) (define (stop)
(send image-button enable #f)
(send stop-button enable #f))
(define-syntax-rule (btn l a y ...) (define-syntax-rule (btn l a y ...)
(new button% [parent p] [label l] [style '(border)] (new button% [parent p] [label l] [style '(border)]
[callback (lambda a y ...)])) [callback (lambda a y ...)]))