suzanne.soy/racket
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
This commit is contained in:
Matthew Flatt 2011-01-01 13:48:57 -07:00 committed by Matthew Flatt
parent a6e04695bb
commit 18ca91dc97
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? (if bitmap?
(case orientation (case orientation
[(#f) BS_BITMAP] [(#f) BS_BITMAP]
[(left) BS_RIGHT] [(left) BS_LEFT]
[(right) BS_LEFT] [(right) BS_RIGHT]
[(top) BS_BOTTOM] [(top) BS_TOP]
[(bottom) BS_TOP]) [(bottom) BS_BOTTOM])
0)) 0))
0 0 0 0 0 0 0 0
(send parent get-client-hwnd) (send parent get-client-hwnd)
@ -77,7 +77,7 @@
[orientation [orientation
(let ([h? (memq orientation '(left right))]) (let ([h? (memq orientation '(left right))])
(auto-size font (list (car label) (cadr label)) (auto-size font (list (car label) (cadr label))
0 0 4 4 0 0 12 8
#:combine-width (if h? + max) #:combine-width (if h? + max)
#:combine-height (if h? max +)))] #:combine-height (if h? max +)))]
[bitmap? [bitmap?