[squeak-dev] The Trunk: System-mt.1288.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 18 08:42:21 UTC 2022


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

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

Name: System-mt.1288
Author: mt
Time: 18 January 2022, 9:42:09.498362 am
UUID: 9445d12f-8216-924e-b3aa-cef0cf0830e1
Ancestors: System-mt.1287

Makes font-change code in UI themes more robust. While there is still no support for set emphasized fonts as #default (or #defaultFixed), we can at least not show a debugger when users try to do so but fall back on the regular, non-emphasized font.

=============== Diff against System-mt.1287 ===============

Item was changed:
  ----- Method: UserInterfaceTheme>>installFixedFont: (in category 'private - fonts') -----
  installFixedFont: aFont
  	"Establish the default fixed text font and style"
  
  	| aStyle |
  	self flag: #todo. "mt: Support derivatives such as bold and italic."
  	aStyle := aFont textStyle.
+ 	aStyle defaultFontIndex: (aStyle fontIndexOfPointSize: aFont pointSize "drop emphasis").
- 	aStyle defaultFontIndex: (aStyle fontIndexOf: aFont).
  	TextStyle setDefaultFixed: aStyle.!

Item was changed:
  ----- Method: UserInterfaceTheme>>installSystemFont: (in category 'private - fonts') -----
  installSystemFont: aFont
  	"Establish the default text font and style"
  
  	| aStyle |
  	self flag: #todo. "mt: Support derivatives such as bold and italic."
  	aStyle := aFont textStyle.
+ 	aStyle defaultFontIndex: (aStyle fontIndexOfPointSize: aFont pointSize "drop emphasis").
- 	aStyle defaultFontIndex: (aStyle fontIndexOf: aFont).
  
  	TextStyle setDefault: aStyle.
  	RealEstateAgent resetScaleFactor.
  	
  	Flaps replaceToolsFlap.
  	ScriptingSystem resetStandardPartsBin.!



More information about the Squeak-dev mailing list