get correct width and height

2015-05-19 16:20:26 -04:00 · 2015-05-19 16:20:26 -04:00 · 8bf6881805
parent 179e1ac46f
commit 8bf6881805
1 changed files with 4 additions and 1 deletions
--- 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))