From 72d904d2d9e01bb1624d65459c74980822eb1a4d Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 9 Jan 2009 19:55:48 +0000 Subject: [PATCH] small bug in new world code svn: r13049 --- collects/2htdp/private/world.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.ss index 2270aafeb1..b45eaa0dd9 100644 --- a/collects/2htdp/private/world.ss +++ b/collects/2htdp/private/world.ss @@ -293,16 +293,17 @@ (inherit-field world0 tick key mouse rec draw rate width height) (inherit show callback-stop!) - ;; Frame Custodian -> (-> Void) + ;; Frame Custodian ->* (-> Void) (-> Void) ;; adds the stop animation and image creation button, ;; 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 p (new horizontal-pane% [parent frm][alignment '(center center)])) (define (switch) (send stop-button enable #f) (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 ...) (new button% [parent p] [label l] [style '(border)] [callback (lambda a y ...)]))