original commit: b05b0bdf2b90471864817477edcd693f216a121d
This commit is contained in:
Matthew Flatt 2003-03-08 13:50:06 +00:00
parent 68bb9652e4
commit 20ad3e19fd

View File

@ -1987,6 +1987,7 @@
(define/override on-paint
(entry-point
(lambda ()
(compute-sizes)
(let ([dc (get-dc)])
(send dc set-background bg-color)
(send dc set-font font)