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

make tiny-control-font slightly bigger under Windows

Browse Source 
svn: r5750

original commit: 3a158e29b35180a451f4f2399c70e77b994a0c3b
This commit is contained in:
Matthew Flatt 2007-03-08 00:20:34 +00:00
parent 86cadc079d
commit 2e9117f477
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/gdi.ss
View File

@ -268,10 +268,13 @@
[(windows) 0]
[(macosx) 2]
[else 1]))
(define tiny-delta (case (system-type)
[(windows) 1]
[else 0]))
(define normal-control-font (make-object wx:font% (wx:get-control-font-size) 'system))
(define small-control-font (make-object wx:font% (- (wx:get-control-font-size) small-delta) 'system))
(define tiny-control-font (make-object wx:font% (- (wx:get-control-font-size) 2 small-delta) 'system))
(define tiny-control-font (make-object wx:font% (- (wx:get-control-font-size) tiny-delta small-delta) 'system))
(define view-control-font (if (eq? 'macosx (system-type))
(make-object wx:font% (- (wx:get-control-font-size) 1) 'system)
normal-control-font))