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