[squeak-dev] The Trunk: Morphic-mt.2017.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 4 16:13:17 UTC 2022


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

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

Name: Morphic-mt.2017
Author: mt
Time: 4 July 2022, 6:13:11.755583 pm
UUID: debf4889-cf7a-8746-80db-3bab100ccc24
Ancestors: Morphic-kfr.2015

Fixes update of cached text morph menus.
Fixes UI theme-specific styling of text selection in dialog windows.

=============== Diff against Morphic-kfr.2015 ===============

Item was changed:
  ----- Method: DialogWindow>>setMessageParameters (in category 'initialization') -----
  setMessageParameters
  
  	| fontToUse colorToUse margins |
  	messageMorph ifNil: [^ self].
  
  	fontToUse := self userInterfaceTheme font ifNil: [TextStyle defaultFont].
  	colorToUse := self userInterfaceTheme textColor ifNil: [Color black].
  
  	margins := (TextStyle pointsToPixels: 5) truncated.
  
  	messageMorph
  		margins: (self wantsRoundedCorners
  			ifTrue: [margins @ (margins - self cornerRadius) corner: margins @ margins]
  			ifFalse: [margins]);
  		textColor: colorToUse;
+ 		textStyle: fontToUse asNewTextStyle. "Use style with other point sizes available"
+ 		
+ 	"Style read-only text for copy interaction."
+ 	self flag: #todo. "mt: Duplication with PluggableTextMorph >> #setDefaultParameters"
+ 	(UserInterfaceTheme current get: #caretColor for: #PluggableTextMorph)
+ 		ifNotNil: [:c | messageMorph caretColor: c].
+ 	(UserInterfaceTheme current get: #selectionColor for: #PluggableTextMorph)
+ 		ifNotNil: [:c | 
+ 			self userInterfaceTheme color = (UserInterfaceTheme current get: #color for: #PluggableTextMorph)
+ 				ifTrue: [messageMorph selectionColor: c]
+ 				ifFalse: [
+ 					"Background is different than in a text field. Use dialog-title color to ensure contrast."
+ 					messageMorph selectionColor: self userInterfaceTheme titleColor]].!
- 		textStyle: fontToUse asNewTextStyle. "Use style with other point sizes available"!

Item was changed:
  ----- Method: PluggableTextMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
  applyUserInterfaceTheme
  
+ 	self flushAdornmentCache.
+ 
+ 	TextEditor withAllSubclassesDo: [:cls |
+ 		cls initializeYellowButtonMenu.
+ 		cls initializeShiftedYellowButtonMenu].!
- 	self flushAdornmentCache.!



More information about the Squeak-dev mailing list