use MrEd:default-font-size preference

svn: r17914
This commit is contained in:
Matthew Flatt 2010-01-31 14:55:07 +00:00
parent 6a3518e369
commit a5da3f327f

View File

@ -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))