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

printf

This commit is contained in:
Jay McCarthy 2015-04-30 20:29:41 -04:00
parent 9755558278
commit e7b5d715a1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
chaos/gui.rkt
View File

@ -45,6 +45,7 @@
(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))
(refresh!)) (refresh!))
(define/augment (on-close) (define/augment (on-close)
(async-channel-put events-ch 'close)) (async-channel-put events-ch 'close))
@ -61,7 +62,7 @@
(send c get-height) (send c get-height)
dc)) dc))
(printf "starting at ~v\n" (vector start-x start-y)) ;; (printf "starting at ~v\n" (vector start-x start-y))
(define f (define f
(new gframe% (new gframe%