Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1550.mcz==================== Summary ====================
Name: Morphic-mt.1550
Author: mt
Time: 30 September 2019, 1:32:01.86371 pm
UUID: 2de79509-3285-d945-80d7-ffdf8a243012
Ancestors: Morphic-mt.1549
Since TextMorph >> #contents: does not reset the wrapFlag to false anymore, fix explicit construction of TextMorphs.
=============== Diff against Morphic-mt.1549 ===============
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
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]!