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}. } !
squeak-dev@lists.squeakfoundation.org