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

==================== 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: [
  	morphList := OrderedCollection new.
  	newCollection do: [:item | 
  		priorMorph := self indentingItemClass basicNew 
  			initWithContents: item 
  			prior: priorMorph 
  			forList: self
  			indentLevel: parentMorph indentLevel + 1.
+ 			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