[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