--- a/TextView.st Thu Oct 13 01:00:41 2016 +0200
+++ b/TextView.st Thu Oct 13 02:42:02 2016 +0200
@@ -2097,12 +2097,12 @@
fontPrefs := userPrefs fontPreferences.
fontPrefs isNil ifTrue:[ fontPrefs := newFontPrefs := Dictionary new ].
- TextView defaultFont:newFont.
fontPrefs at:#Text put:(newFont storeString).
newFontPrefs notNil ifTrue:[ userPrefs fontPreferences:newFontPrefs ].
userPrefs beModified.
DebugView newDebugger.
TextView allSubInstances do:[:v |
+ v class defaultFont:newFont.
v font:newFont
].
].