From 211b053f74dc26b3a086eac96a211248f4c0bea5 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 25 Jan 2006 18:39:09 +0000 Subject: [PATCH] on-redraw: proc is now called on installation svn: r1966 --- collects/htdp/world.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/htdp/world.ss b/collects/htdp/world.ss index aec0b18a74..b41ddcfecf 100644 --- a/collects/htdp/world.ss +++ b/collects/htdp/world.ss @@ -1,3 +1,4 @@ +;; Wed Jan 25 13:38:42 EST 2006: on-redraw: proc is now called on installation ;; Tue Jan 3 11:17:50 EST 2006: changed add-line behavior in world.ss ;; Sat Dec 10 19:39:03 EST 2005: fixed name, changed interface to on-key-event ;; Fri Dec 9 21:39:03 EST 2005: remoevd (update ... produce ...); added on-redraw @@ -260,9 +261,8 @@ (check-result 'on-redraw (lambda (x) (beg:image? x)) "image" img) (update-frame img) #t))) - #t) - (error 'on-redraw "the redraw function has already been specified")) - #t) + (on-redraw-proc)) + (error 'on-redraw "the redraw function has already been specified"))) (define (update-frame pict) (send txt begin-edit-sequence)