From 93edd8a8b1a72cbd823f4258c8c0b679b0efffc4 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sun, 14 Jul 2019 16:09:38 -0600 Subject: [PATCH] Attempt to get GL canvases correct size on linux/Win --- chaos/gui.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/chaos/gui.rkt b/chaos/gui.rkt index 0227051..bd7bc06 100644 --- 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