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

commits at source.squeak.org commits at source.squeak.org
Mon Feb 17 15:16:21 UTC 2020


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

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

Name: System-mt.1132
Author: mt
Time: 17 February 2020, 4:16:14.662347 pm
UUID: 6bc18c86-ae75-1f43-9ffb-6a741507fa39
Ancestors: System-cmm.1131

Fixes scaling bug due to invalidation of (recently introduced) cache for ScaleFactor.

=============== Diff against System-cmm.1131 ===============

Item was changed:
  ----- Method: UserInterfaceTheme>>fixFontsAndScaleAround: (in category 'private') -----
  fixFontsAndScaleAround: block
  	"Due to the current situation with fonts and the real-estate manager, this is a small workaround to support theme switching with largely different font sizes."
  
  	lastScaleFactor ifNil: [lastScaleFactor := RealEstateAgent scaleFactor].
  
  	"Due to the current font situation, update TextConstants."
  	[	ignoreApply := true.
  		(self get: #standardSystemFont) ifNotNil: [:font | Preferences setSystemFontTo: font].
  		(self get: #standardFixedFont) ifNotNil: [:font | Preferences setFixedFontTo: font].
+ 		RealEstateAgent applyUserInterfaceTheme. "Reset cached scale factor now. Sigh."
  	] ensure: [ignoreApply := false].
  
  	"Apply theme etc."
  	block value.
  
  	"Due to the current real-estate manager situation, resize all windows. Works only for Morphic projects."
  	(RealEstateAgent scaleFactor - lastScaleFactor) abs > 0.1 ifTrue: [
  		Project current isMorphic ifTrue: [
  			| scale |
  			scale := RealEstateAgent scaleFactor / lastScaleFactor.
  			Project current world submorphs
  				select: [:ea | ea isSystemWindow]
  				thenDo: [:ea |
  					ea extent: (ea extent * scale).
  					ea layoutChanged.
  					ea setFramesForLabelArea]]].
  
  	lastScaleFactor := nil.!



More information about the Squeak-dev mailing list