From 94b49e408241957adc7d6a3e66856a2a6a1fd2e0 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay.mccarthy@gmail.com>
Date: Wed, 20 May 2015 12:14:25 -0400
Subject: [PATCH] use get-scaled-client-size and increase dep

---
 chaos/gui.rkt | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/chaos/gui.rkt b/chaos/gui.rkt
index dd25f9c..055ab52 100644
--- a/chaos/gui.rkt
+++ b/chaos/gui.rkt
@@ -60,10 +60,8 @@
 
   (define drawer (box void))
   (define (paint-canvas c dc)
-    ((unbox drawer)
-     (send c get-width)
-     (send c get-height)
-     dc))
+    (define-values (cw ch) (send c get-scaled-client-size))
+    ((unbox drawer) cw ch dc))
 
   ;; (printf "starting at ~v\n" (vector start-x start-y))