[squeak-dev] The Trunk: Morphic-ct.1901.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 19 01:32:08 UTC 2022
Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1901.mcz
==================== Summary ====================
Name: Morphic-ct.1901
Author: ct
Time: 19 February 2022, 2:31:39.2209 am
UUID: ef808e6c-aebf-0a40-91be-2333a8c7bc3b
Ancestors: Morphic-mt.1900
Fixes regression with custom text attributes in tree widgets. Complements Morphic-mt.1594. Yes, we should really deduplicate #addMorphsTo:from:allowSorting:withExpandedItems:atLevel: and #addSubmorphsAfter:fromCollection:allowSorting:. :-)
=============== Diff against Morphic-mt.1900 ===============
Item was changed:
----- Method: SimpleHierarchicalListMorph>>addSubmorphsAfter:fromCollection:allowSorting: (in category 'private') -----
addSubmorphsAfter: parentMorph fromCollection: aCollection allowSorting: sortBoolean
| priorMorph morphList newCollection |
priorMorph := nil.
newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [
aCollection sorted: [ :a :b |
(a perform: sortingSelector) <= (b perform: sortingSelector)]
] ifFalse: [
aCollection
].
morphList := OrderedCollection new.
newCollection do: [:item |
priorMorph := self indentingItemClass basicNew
initWithContents: item
prior: priorMorph
forList: self
indentLevel: parentMorph indentLevel + 1.
priorMorph
+ initWithColor: self textColor
+ andFont: self font.
+ priorMorph
- color: self textColor;
- font: self font;
selectionColor: self selectionColor;
selectionTextColor: self selectionTextColor;
hoverColor: self hoverColor;
highlightTextColor: self highlightTextColor;
filterColor: self filterColor;
filterTextColor: self filterTextColor;
wantsYellowButtonMenu: false.
morphList add: priorMorph.
].
scroller addAllMorphs: morphList after: parentMorph.
+ ^morphList!
- ^morphList
-
- !
More information about the Squeak-dev
mailing list
|