use MrEd:default-font-size preference
svn: r17914
This commit is contained in:
parent
6a3518e369
commit
a5da3f327f
|
@ -1,5 +1,6 @@
|
|||
#lang scheme/base
|
||||
(require scheme/class
|
||||
scheme/file
|
||||
(for-syntax scheme/base)
|
||||
"../syntax.ss"
|
||||
"cycle.ss"
|
||||
|
@ -18,9 +19,10 @@
|
|||
write-styles-to-file)
|
||||
|
||||
(define default-size
|
||||
(case (system-type)
|
||||
[(windows) 10]
|
||||
[else 12]))
|
||||
(or (get-preference 'MrEd:default-font-size)
|
||||
(case (system-type)
|
||||
[(windows) 10]
|
||||
[else 12])))
|
||||
|
||||
(define black-color (make-object color% 0 0 0))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user