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:14:25 -04:00
parent c93272f781
commit 94b49e4082
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
chaos/gui.rkt
View File

@ -60,10 +60,8 @@
(define drawer (box void)) (define drawer (box void))
(define (paint-canvas c dc) (define (paint-canvas c dc)
((unbox drawer) (define-values (cw ch) (send c get-scaled-client-size))
(send c get-width) ((unbox drawer) cw ch dc))
(send c get-height)
dc))
;; (printf "starting at ~v\n" (vector start-x start-y)) ;; (printf "starting at ~v\n" (vector start-x start-y))