Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1551.mcz==================== Summary ====================
Name: Morphic-mt.1551
Author: mt
Time: 30 September 2019, 3:57:16.04771 pm
UUID: a496bd6a-f249-1d41-8989-e6383d6a0826
Ancestors: Morphic-mt.1550
Like Morphic-mt.1550, complement the change in Morphic-mt.1520.
Before 1520, using #contents: did set wrapFlag to "false", which effectively initializes every TextMorph with that value because "TextMorph new contents: 'foobar'" is kind of common. After 1520, that's not the case anymore. So, this commit really sets wrapFlag to "false" and finally adds autoFit to #initialize as well.
As long as the client configures text morphs with their #contents, wrapping makes no sense. Only if that configuration considers both #contents and #width, wrapping matters. Since that is the case for tool building, I will change the default treatment of PluggableTextSpec >> #softLineWrap directly after this commit.
=============== Diff against Morphic-mt.1550 ===============
Item was changed:
----- Method: MenuMorph>>displayFiltered: (in category 'keyboard control') -----
displayFiltered: evt
| matchStr allItems matches feedbackMorph |
matchStr := self valueOfProperty: #matchString.
allItems := self submorphs select: [:m | m isKindOf: MenuItemMorph].
matches := allItems select: [:m | | isMatch |
isMatch :=
matchStr isEmpty or: [
m contents includesSubstring: matchStr caseSensitive: false].
m isEnabled: isMatch.
isMatch].
feedbackMorph := self valueOfProperty: #feedbackMorph.
feedbackMorph ifNil: [
+ feedbackMorph := TextMorph new
+ color: Color darkGray;
+ yourself.
- feedbackMorph :=
- TextMorph new
- autoFit: true;
- wrapFlag: false;
- color: Color darkGray.
self
addLine;
addMorphBack: feedbackMorph lock.
self setProperty: #feedbackMorph toValue: feedbackMorph.
self fullBounds. "Lay out for submorph adjacency"].
feedbackMorph contents: '<', matchStr, '>'.
matchStr isEmpty ifTrue: [
feedbackMorph delete.
self submorphs last delete.
self removeProperty: #feedbackMorph].
" This method is invoked with evt = nil from MenuMorph >> removeMatchString.
The current implementation can't select an item without an event. "
(evt notNil and: [ matches size >= 1 ]) ifTrue: [
self selectItem: matches first event: evt]!
Item was changed:
----- Method: TextMorph>>initialize (in category 'initialization') -----
initialize
super initialize.
textStyle := TextStyle default copy.
+
+ wrapFlag := false.
+ autoFit := true.!
- wrapFlag := true.
- !
Item was changed:
----- Method: TextMorph>>isAutoFit (in category 'accessing') -----
isAutoFit
+ "For migrating old instances only. See #initialize."
+
-
^ autoFit ifNil: [autoFit := true]!
Locked
