svn: r12935
This commit is contained in:
Robby Findler 2008-12-24 23:25:20 +00:00
parent f5dfb7ed31
commit 58a5ba6bf2

View File

@ -5,7 +5,7 @@
(define bitmap-message%
(class canvas%
(inherit min-width min-height get-dc)
(inherit min-width min-height get-dc refresh)
(define bm #f)
(define/override (on-paint)
(when bm
@ -14,6 +14,7 @@
(define/public (set-bm b)
(set! bm b)
(min-width (send bm get-width))
(min-height (send bm get-height)))
(min-height (send bm get-height))
(refresh))
(super-new (stretchable-width #f)
(stretchable-height #f))))