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

.

Browse Source 
original commit: 0ce2204b1e5ab090387d2ff1192ccbe280b16c10
This commit is contained in:
Matthew Flatt 2005-02-10 20:03:49 +00:00
parent cda43e3c00
commit 6edf4807c8
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/bitmap-label.ss
View File

@ -15,7 +15,7 @@
[(text filename-or-bitmap)
(lambda (area-container-window)
(let*-values ([(outside-margin) 2]
[(font) (send area-container-window get-control-font)]
[(font) normal-control-font]
[(img-bitmap-dc img-bitmap img-width img-height)
(let ([mdc (make-object bitmap-dc%)]
[q (if (filename-or-bitmap . is-a? . bitmap%)

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

@ -142,14 +142,7 @@
(stretchable-width #f)
(stretchable-height #f)))
(define button-label-font
(case (system-type)
[(windows)
(send the-font-list find-or-create-font 8 'decorative 'normal 'normal #f)]
[(macosx)
(send the-font-list find-or-create-font 11 'system 'normal 'bold #f)]
[else
(send the-font-list find-or-create-font 10 'decorative 'normal 'normal #f)]))
(define button-label-font small-control-font)
(define button-label-inset 1)
(define black-color (make-object color% "BLACK"))