Attempt to get GL canvases correct size on linux/Win

2019-07-14 16:09:38 -06:00 · 2019-07-14 16:09:38 -06:00 · 93edd8a8b1
parent 6e341803e6
commit 93edd8a8b1
1 changed files with 5 additions and 3 deletions
--- a/chaos/gui.rkt
+++ b/chaos/gui.rkt
@ -63,9 +63,11 @@
  (define drawer (box void))
  (define (paint-canvas c dc)
    (define-values (cw ch)
-      (if the-hires?
-          (send c get-scaled-client-size)
-          (send c get-client-size)))
+      (if (or gl-config the-hires?)
+        (if gl-config
+          (send c get-gl-client-size)
+          (send c get-scaled-client-size))
+        (send c get-client-size)))
    ((unbox drawer) cw ch dc))

  (define f