misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

get correct width and height

This commit is contained in:
Jay McCarthy 2015-05-19 16:20:26 -04:00
parent 179e1ac46f
commit 8bf6881805
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
chaos/gui.rkt
View File

@ -47,7 +47,10 @@
(define gframe% (define gframe%
(class frame% (class frame%
(define/override (on-size w h) (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!)) (refresh!))
(define/augment (on-close) (define/augment (on-close)
(async-channel-put events-ch 'close)) (async-channel-put events-ch 'close))