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

use MrEd:default-font-size preference

Browse Source 
svn: r17914
This commit is contained in:
Matthew Flatt 2010-01-31 14:55:07 +00:00
parent 6a3518e369
commit a5da3f327f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/style.ss
View File

@ -1,5 +1,6 @@
#lang scheme/base #lang scheme/base
(require scheme/class (require scheme/class
scheme/file
(for-syntax scheme/base) (for-syntax scheme/base)
"../syntax.ss" "../syntax.ss"
"cycle.ss" "cycle.ss"
@ -18,9 +19,10 @@
write-styles-to-file) write-styles-to-file)
(define default-size (define default-size
(or (get-preference 'MrEd:default-font-size)
(case (system-type) (case (system-type)
[(windows) 10] [(windows) 10]
[else 12])) [else 12])))
(define black-color (make-object color% 0 0 0)) (define black-color (make-object color% 0 0 0))