suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR 9986

Browse Source 
svn: r12935
This commit is contained in:
Robby Findler 2008-12-24 23:25:20 +00:00
parent f5dfb7ed31
commit 58a5ba6bf2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/bitmap-message.ss
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))))