The Trunk: Morphic-mt.1550.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.1550.mcz

commits-2
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]!