From 405a5a27519e0c4b370a54b424804202cf8d698d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 2 Nov 2006 03:16:51 +0000 Subject: [PATCH] add missing refreshes svn: r4747 --- collects/games/doors/doors.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/games/doors/doors.ss b/collects/games/doors/doors.ss index 08225b67b3..7bbf54cd0a 100644 --- a/collects/games/doors/doors.ss +++ b/collects/games/doors/doors.ss @@ -201,8 +201,9 @@ (when from-room (send board remove-piece player)) (when to-room - (send board add-piece (+ i 0.5) (+ j 0.5) 0.0 (player-drawer player) player)))) - + (send board add-piece (+ i 0.5) (+ j 0.5) 0.0 (player-drawer player) player)) + (send board refresh))) + (public [new-thing make-thing]) (define (new-thing drawer data) (make-thing data drawer #f #f #f)) @@ -227,7 +228,8 @@ (send board add-piece (+ i 0.5) (+ j 0.5) 0.0 (thing-drawer thing) thing) (send board enable-piece thing #f)) (when hu? - (send board add-heads-up 1.0 1.0 (thing-drawer thing) thing)))) + (send board add-heads-up 1.0 1.0 (thing-drawer thing) thing)) + (send board refresh))) (define/public (move-thing thing i j) (move-thing/hu thing i j #f))