Tim Felgentreff uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tfel.923.mcz

==================== Summary ====================

Name: System-tfel.923
Author: tfel
Time: 18 January 2017, 10:05:39.926932 am
UUID: d9dcb1e9-52fe-435e-9d88-96f921f9fd20
Ancestors: System-ul.922

add methods to quickly increase/decrease fonts

=============== Diff against System-ul.922 ===============

Item was added:
+ ----- Method: Preferences class>>changeFontSize: (in category 'prefs - fonts') -----
+ changeFontSize: delta
+ 	| theme base fonts |
+ 	delta = 0 ifTrue: [self restoreDefaultFonts].
+ 	(UserInterfaceTheme current name beginsWith: 'Demo')
+ 		ifFalse: [
+ 			"Create DEMO version of current theme."
+ 			theme := UserInterfaceTheme named: 'Demo'.
+ 			theme merge: UserInterfaceTheme current overwrite: true.
+ 			theme apply].
+ 
+ 	base := (TextStyle defaultFont name beginsWith: 'Darkmap')
+ 		ifTrue: ['Darkmap DejaVu Sans'] ifFalse: ['Bitmap DejaVu Sans'].
+ 
+ 	fonts := {
+ 		{#SystemFont. base}.
+ 		{#FixedFont. 'BitstreamVeraSansMono'}.
+ 		{#ListFont. base}.
+ 		{#FlapFont. base}.
+ 		{#EToysFont. base}.
+ 		{#PaintBoxButtonFont. base}.
+ 		{#MenuFont. base}.
+ 		{#WindowTitleFont. base, ' B'}.
+ 		{#BalloonHelpFont. base}.
+ 		{#CodeFont. base}.
+ 		{#ButtonFont. base}.
+ 	} collect: [:ary || newPtSize |
+ 		newPtSize := (self perform: ('standard', ary first) asSymbol) pointSize + delta.
+ 		{('set', ary first, 'To:') asSymbol. ary second. newPtSize}
+ 	].
+ 	self setDefaultFonts: fonts.
+ !

Item was added:
+ ----- Method: Preferences class>>decreaseFontSize (in category 'prefs - fonts') -----
+ decreaseFontSize
+ 
+ 	self changeFontSize: -3.
+ !

Item was added:
+ ----- Method: Preferences class>>increaseFontSize (in category 'prefs - fonts') -----
+ increaseFontSize
+ 
+ 	self changeFontSize: 3.
+ !

Item was added:
+ ----- Method: Preferences class>>setFlapFontTo: (in category 'prefs - fonts') -----
+ setFlapFontTo: aFont
+ 
+ 	UserInterfaceTheme current
+ 		set: #standardFlapFont
+ 		to: aFont;
+ 		apply.	
+ 		
+ 	"FlapTab allSubInstancesDo:
+ 		[:aFlapTab | aFlapTab reformatTextualTab]"!

Item was added:
+ ----- Method: Preferences class>>standardWindowTitleFont (in category 'prefs - fonts') -----
+ standardWindowTitleFont
+ 	"Answer the standard font to use for window titles"
+ 
+ 	^ (UserInterfaceTheme current get: #windowTitleFont)
+ 		ifNil: [TextStyle defaultFont]!