From 8bf6881805969f0380495eb611e7dcf06884c426 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 19 May 2015 16:20:26 -0400 Subject: [PATCH] get correct width and height --- chaos/gui.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/chaos/gui.rkt b/chaos/gui.rkt index e5c1845..e5a5b05 100644 --- a/chaos/gui.rkt +++ b/chaos/gui.rkt @@ -47,7 +47,10 @@ (define gframe% (class frame% (define/override (on-size w h) - (async-channel-put events-ch (list 'resize w h)) + (async-channel-put events-ch + (list 'resize + (send c get-width) + (send c get-height))) (refresh!)) (define/augment (on-close) (async-channel-put events-ch 'close))