[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
|