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

fix some updating problems, especially under Mac OS X with transparent canvases

Browse Source 
svn: r9825

original commit: 52ced1f100243ff6b39f8c9e6da8f04389ebb605
This commit is contained in:
Matthew Flatt 2008-05-13 18:14:15 +00:00
parent ee53e25c5c
commit ca5edb8849
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/name-message.ss
View File

@ -260,7 +260,7 @@
(define label-width
(if label
(let-values ([(w _1 _2 _3) (send dc get-text-extent label)])
(let-values ([(w _1 _2 _3) (send dc get-text-extent label button-label-font)])
w)
0))