The Trunk: System-tfel.912.mcz

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.
 
  !