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

use get-scaled-client-size and increase dep

This commit is contained in:
Jay McCarthy 2015-05-20 12:00:33 -04:00
parent 8bf6881805
commit c93272f781
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
chaos/gui.rkt
View File

@ -47,10 +47,8 @@
(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 (define-values (cw ch) (send c get-scaled-client-size))
(list 'resize (async-channel-put events-ch (list 'resize cw ch))
(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))

2
info.rkt
View File

@ -2,7 +2,7 @@
(define collection "lux") (define collection "lux")
(define deps '("draw-lib" (define deps '("draw-lib"
"drracket" "drracket"
"gui-lib" ["gui-lib" #:version "1.13"]
"htdp-lib" "htdp-lib"
"pict-lib" "pict-lib"
"base" "base"