From 28ff8eca7e081767eac7f1c11ac96612a21a5be1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 17 Nov 2008 17:05:49 +0000 Subject: [PATCH] fix game card-layout method to call correct method svn: r12473 --- collects/games/cards/classes.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/games/cards/classes.ss b/collects/games/cards/classes.ss index 7016f4bd53..ee828faf87 100644 --- a/collects/games/cards/classes.ss +++ b/collects/games/cards/classes.ss @@ -719,8 +719,8 @@ (unless (null? cards) (let-values ([(x y w h) (send pb get-region-box r)] [(len) (sub1 (length cards))] - [(cw ch) (values (send (car cards) get-width) - (send (car cards) get-height))]) + [(cw ch) (values (send (car cards) card-width) + (send (car cards) card-height))]) (let* ([pretty (lambda (cw) (+ (* (add1 len) cw) (* len PRETTY-CARD-SEP-AMOUNT)))] [pw (pretty cw)] [ph (pretty ch)])