use get-scaled-client-size and increase dep

2015-05-20 12:14:25 -04:00 · 2015-05-20 12:14:25 -04:00 · 94b49e4082
parent c93272f781
commit 94b49e4082
1 changed files with 2 additions and 4 deletions
--- 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))