Browse Source

Attempt to get GL canvases correct size on linux/Win

master
Jay McCarthy 1 year ago
parent
commit
93edd8a8b1
1 changed files with 5 additions and 3 deletions
  1. +5
    -3
      chaos/gui.rkt

+ 5
- 3
chaos/gui.rkt View File

@@ -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


Loading…
Cancel
Save