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

fix use before definition bug

Browse Source
This commit is contained in:
Robby Findler 2014-04-17 07:33:37 -05:00
parent b08a831fc9
commit 9a017a789f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt
View File

@ -429,7 +429,11 @@
(define image-button:label ((bitmap-label-maker "Images" image-button:path) '_)) (define image-button:label ((bitmap-label-maker "Images" image-button:path) '_))
(define aworld% (define aworld%
(class world% (super-new) (class world%
;; an argument-recording ppdraw
(field [image-history '()]) ;; [Listof Evt]
(super-new)
(inherit-field world0 draw rate width height record?) (inherit-field world0 draw rate width height record?)
(inherit show callback-stop!) (inherit show callback-stop!)
@ -462,8 +466,6 @@
(send image-button enable #f) (send image-button enable #f)
(values switch stop)) (values switch stop))
;; an argument-recording ppdraw
(field [image-history '()]) ;; [Listof Evt]
(define/override (ppdraw) (define/override (ppdraw)
(define image (super ppdraw)) (define image (super ppdraw))
(set! image-history (cons image image-history)) (set! image-history (cons image image-history))