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

protect against redraw requests before the canvas is properly sized

Browse Source 
svn: r9654
This commit is contained in:
Matthew Flatt 2008-05-05 12:24:06 +00:00
parent b53e01c460
commit 665e4c07bf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/switchable-button.ss
View File

@ -95,8 +95,8 @@
(send dc draw-rounded-rectangle (send dc draw-rounded-rectangle
margin margin
margin margin
(- cw margin margin) (max 0 (- cw margin margin))
(- ch margin margin)) (max 0 (- ch margin margin)))
(send dc set-alpha alpha) (send dc set-alpha alpha)
(send dc set-font normal-control-font) (send dc set-font normal-control-font)