M CHANGELOG.md => CHANGELOG.md +1 -0
@@ 9,6 9,7 @@
* Enable close button on tab
* Enable reorder of tabs
* Requires Racket v8.0
+* Use system-default fonts
# Version 0.10
M styles.rkt => styles.rkt +2 -2
@@ 4,13 4,13 @@
(define base-style
(let ([delta (new style-delta%)])
- (send delta set-delta-face "Calibri")
+ (send delta set-delta-face (get-family-builtin-face 'default))
(send delta set-size-add 4)
delta))
(define code-style
(let ([delta (new style-delta%)])
- (send delta set-delta-face "Consolas")
+ (send delta set-delta-face (get-family-builtin-face 'modern))
delta))
;; Style used for hyperlinks, when not clicked