From 88bf95297e6c6474914ae3c6e6f3b7ac5a3454e5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 15 Jul 2014 07:55:07 -0500 Subject: [PATCH] fix a bug uncovered by 1b3fd890adb725 Merge to 6.1, please (cherry picked from commit 6d2dfbff9e30a7917ff38a3a5e8a1c0455043df5) --- pkgs/games/scribblings/same.scrbl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/pkgs/games/scribblings/same.scrbl b/pkgs/games/scribblings/same.scrbl index 48a61baf4a..6ddbad89e6 100644 --- a/pkgs/games/scribblings/same.scrbl +++ b/pkgs/games/scribblings/same.scrbl @@ -11,10 +11,16 @@ (dc (λ (dc dx dy) (define-values (ox oy) (send dc get-origin)) + (define pen (send dc get-pen)) + (define brush (send dc get-brush)) + (define-values (scale-x scale-y) (send dc get-scale)) (send dc set-origin (+ ox dx) (+ oy dy)) (draw-board dc board-width board-height board w h #f #f #f #f) - (send dc set-origin ox oy)) + (send dc set-origin ox oy) + (send dc set-pen pen) + (send dc set-brush brush) + (send dc set-scale scale-x scale-y)) w h)) @(define (copy-board board)