[Pkg] The Trunk: System-tfel.912.mcz

[commits at source.squeak.org]

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

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

Name: System-tfel.912
Author: tfel
Time: 30 August 2016, 5:41:54.643349 pm
UUID: 584b46ac-71c6-604e-8f4b-1de61ca8c0a8
Ancestors: System-tfel.911

Fix setSystemFontTo: to correctly set the default text style

=============== Diff against System-tfel.911 ===============

Item was changed:
  ----- Method: Preferences class>>setSystemFontTo: (in category 'prefs - fonts') -----
  setSystemFontTo: aFont
  	"Establish the default text font and style"
  
  	| aStyle newDefaultStyle |
  	aFont ifNil: [^ self].
  	aStyle := aFont textStyle ifNil: [^ self].
+ 	newDefaultStyle := TextStyle fontArray: {aFont}.
- 	newDefaultStyle := aStyle copy.
- 	newDefaultStyle defaultFontIndex: (aStyle fontIndexOf: aFont).
  
  	UserInterfaceTheme current
  		set: #standardSystemFont to: aFont;
  		apply.
  
  	TextStyle setDefault: newDefaultStyle.
  	Flaps replaceToolsFlap.
  	ScriptingSystem resetStandardPartsBin.
  	
  !