[squeak-dev] The Trunk: System-mt.1272.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Dec 21 17:15:44 UTC 2021
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1272.mcz
==================== Summary ====================
Name: System-mt.1272
Author: mt
Time: 21 December 2021, 6:15:41.263727 pm
UUID: 3f94e20e-6661-4a1c-bb46-d21dae1bb101
Ancestors: System-eem.1271
Removes or deprecates some unused methods around font management.
=============== Diff against System-eem.1271 ===============
Item was removed:
- ----- Method: Preferences class>>attemptToRestoreClassicFonts (in category 'prefs - fonts') -----
- attemptToRestoreClassicFonts
- "If certain fonts formerly used in early versions of Squeak happen to be present in the image, restore them to their corresponding roles. Not called by any other method -- intended to be invoked via do-it, possibly in a postscript"
- "Preferences attemptToRestoreClassicFonts"
-
-
- self setDefaultFonts: #( (setButtonFontTo: NewYork 12)
- (setCodeFontTo: NewYork 12)
- (setFlapsFontTo: ComicBold 16)
- (setEToysFontTo: ComicBold 16)
- (setListFontTo: NewYork 12)
- (setMenuFontTo: NewYork 12)
- (setWindowTitleFontTo: NewYork 15)
- (setSystemFontTo: NewYork 12)) .!
Item was removed:
- ----- Method: SmalltalkImage>>unloadFonts (in category 'shrinking') -----
- unloadFonts "Smalltalk unloadFonts"
-
- "Unloads all fonts except the style specified initially."
-
- | fontName fontSize textStyle |
- "Three good choices here:
- * Atlanta 11: Absolutely minimal font.
- * Accuny 10: A few extra sizes over Atlanta.
- * Bitmap DejaVu Sans 9: Nicest fonts but relatively large.
- "
- fontName := #'Bitmap DejaVu Sans'.
- fontSize := 9.
-
- "Nuke everything other than the desired text style"
- textStyle := TextStyle named: fontName.
- TextStyle defaultFamilyNames do:[:styleName|
- TextConstants at: styleName put: textStyle
- ].
- TextStyle actualTextStyles keys do:[:styleName|
- TextConstants removeKey: styleName
- ].
- TextConstants at: fontName put: textStyle.
-
- "Use it everywhere"
- Preferences setDefaultFonts: {
- {#setSystemFontTo:. fontName. fontSize}.
- {#setListFontTo:. fontName. fontSize}.
- {#setFlapsFontTo:. fontName. fontSize}.
- {#setEToysFontTo:. fontName. fontSize}.
- {#setEToysTitleFontTo: . fontName. fontSize}.
- {#setPaintBoxButtonFontTo:. fontName. fontSize}.
- {#setMenuFontTo:. fontName. fontSize}.
- {#setWindowTitleFontTo:. fontName. fontSize}.
- {#setBalloonHelpFontTo:. fontName. fontSize}.
- {#setCodeFontTo:. fontName. fontSize}.
- {#setButtonFontTo:. fontName. fontSize}.
- }.
-
- "Clean out afterwards"
- Smalltalk at: #TextEditor ifPresent:[:aClass| aClass initialize].
- Smalltalk at: #SmalltalkEditor ifPresent:[:aClass| aClass initialize].
- Smalltalk at: #SystemProgressMorph ifPresent:[:aClass| aClass reset].
- Smalltalk at: #TTCFont ifPresent:[:aClass| aClass registry removeAll].
- Smalltalk at: #Flaps ifPresent:[:aClass | aClass disableGlobalFlaps: false].
- Smalltalk at: #TTFontDescription ifPresent:[:aClass| aClass clearDefault].
- Smalltalk at: #TTFontDescription ifPresent:[:aClass| aClass clearDescriptions].
- !
More information about the Squeak-dev
mailing list
|