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

win32: make bitmap+string label look right in Win7

Browse Source 
original commit: 18ca91dc97eb6b1326fe1b92a923a25fdb883fa7
This commit is contained in:
Matthew Flatt 2011-01-01 13:48:57 -07:00 committed by Matthew Flatt
parent c09dfaed9c
commit 487562c7d6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/win32/button.rkt
View File

@ -48,10 +48,10 @@
(if bitmap?
(case orientation
[(#f) BS_BITMAP]
[(left) BS_RIGHT]
[(right) BS_LEFT]
[(top) BS_BOTTOM]
[(bottom) BS_TOP])
[(left) BS_LEFT]
[(right) BS_RIGHT]
[(top) BS_TOP]
[(bottom) BS_BOTTOM])
0))
0 0 0 0
(send parent get-client-hwnd)
@ -77,7 +77,7 @@
[orientation
(let ([h? (memq orientation '(left right))])
(auto-size font (list (car label) (cadr label))
0 0 4 4
0 0 12 8
#:combine-width (if h? + max)
#:combine-height (if h? max +)))]
[bitmap?