The Trunk: System-mt.1013.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1013.mcz

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

Name: System-mt.1013
Author: mt
Time: 4 April 2018, 12:30:15.520182 pm
UUID: 3a0db30f-45cb-c342-ac69-e18652996e83
Ancestors: System-cmm.1012

Avoid duplicate creation of Demo/HiDPI versions of UI themes.

=============== Diff against System-cmm.1012 ===============

Item was changed:
  ----- Method: Preferences class>>setDemoFonts (in category 'prefs - fonts') -----
  setDemoFonts
  "Preferences setDemoFonts"
 
  | theme base |
  self inform: 'The current UI theme will be copied\and larger fonts be installed.' translated withCRs.
 
  (UserInterfaceTheme current name beginsWith: 'Demo')
  ifFalse: [
+ UserInterfaceTheme allThemes
+ detect: [:ea | (ea name beginsWith: 'Demo')
+ and: [ea name endsWith: UserInterfaceTheme current name]]
+ ifFound: [:uit | uit apply]
+ ifNone: [
+ "Create DEMO version of current theme."
+ theme := UserInterfaceTheme named: 'Demo'.
+ theme merge: UserInterfaceTheme current overwrite: true.
+ theme apply]].
- "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'].
 
  self setDefaultFonts: {
  {#setSystemFontTo:. base. 14}.
  {#setFixedFontTo:. 'BitstreamVeraSansMono'. 16}.
  {#setListFontTo:. base. 14}.
  {#setFlapsFontTo:. base. 12}.
  {#setEToysFontTo:. base. 14}.
  {#setPaintBoxButtonFontTo:. base. 14}.
  {#setMenuFontTo:. base . 14}.
  {#setWindowTitleFontTo:. base, ' B'. 14}.
  {#setBalloonHelpFontTo:. base. 12}.
  {#setCodeFontTo:. base. 14}.
  {#setButtonFontTo:. base. 12}.
  }
  !