Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2092.mcz

==================== Summary ====================

Name: Morphic-mt.2092
Author: mt
Time: 23 February 2023, 3:13:48.782976 pm
UUID: b22a193c-cb4d-ef4f-b189-f1ce12cbf7dd
Ancestors: Morphic-mt.2091

Complements ToolBuilder-Morphic-mt.335.

Increase default type-in filter delay to 1500 milliseconds to account for slow typers by default. Fast typers can hit [backspace] any time for faster reset.

=============== Diff against Morphic-mt.2091 ===============

Item was added:
+ ----- Method: IndentingListItemMorph>>applyRecursiveFilter:allowExpand: (in category 'filtering') -----
+ applyRecursiveFilter: filter allowExpand: allowExpand
+ 
+ 	| selfMatch childMatch |
+ 	selfMatch := container matchesPattern: filter contents: contents.
+ 	
+ 	childMatch := false.
+ 	(self isExpanded not and: [allowExpand])
+ 		ifTrue: [self expand].
+ 	self childrenDo: [:child |
+ 		(child applyRecursiveFilter: filter allowExpand: allowExpand) ifTrue: [childMatch := true]].
+ 	
+ 	selfMatch ifTrue: [
+ 		backgroundColor := FilterBackgroundColor.
+ 		childMatch ifFalse: [
+ 			allowExpand
+ 				ifTrue: [
+ 					"User is able to expand node again."
+ 					self collapse]
+ 				ifFalse: [
+ 					"Show at least some context for non-matching children."
+ 					self childrenDo: [:child | child extension visible: true] ]]].
+ 
+ 	^ selfMatch | childMatch
+ 		ifTrue: [true]
+ 		ifFalse: [self extension visible: false. false]!

Item was added:
+ ----- Method: IndentingListItemMorph>>applyRecursiveFilter:column:allowExpand: (in category 'filtering') -----
+ applyRecursiveFilter: filter column: index allowExpand: allowExpand
+ 
+ 	| selfMatch childMatch |
+ 	index ifNil: [^ self applyRecursiveFilter: filter allowExpand: allowExpand].
+ 
+ 	selfMatch := container matchesPattern: filter contents: contents column: index.
+ 	
+ 	childMatch := false.
+ 	(self isExpanded not and: [allowExpand])
+ 		ifTrue: [self expand].
+ 	self childrenDo: [:child |
+ 		(child applyRecursiveFilter: filter column: index allowExpand: allowExpand)
+ 			ifTrue: [childMatch := true]].
+ 	
+ 	selfMatch ifTrue: [
+ 		backgroundColor := FilterBackgroundColor.
+ 		childMatch ifFalse: [
+ 			allowExpand
+ 				ifTrue: [self collapse "User is able to expand node again."]
+ 				ifFalse: [self childrenDo: [:child | child extension visible: true] ]]].
+ 
+ 	^ selfMatch | childMatch
+ 		ifTrue: [true]
+ 		ifFalse: [self extension visible: false. false]!

Item was added:
+ ----- Method: IndentingListItemMorph>>firstChild: (in category 'accessing') -----
+ firstChild: aMorph
+ 
+ 	firstChild := aMorph.!

Item was changed:
  ----- Method: IndentingListItemMorph>>initializeFromText: (in category 'initialization') -----
  initializeFromText: aText
  	"Overridden to keep track of text-based attributes."
  	
  	| priorFont priorEmphasis priorColor |
  	priorFont := self font.
  	priorEmphasis := self emphasis.
  	priorColor := self color.
  	
  	super initializeFromText: aText.
  	
  	self setProperty: #hasFontFromText toValue: priorFont ~~ self font.
+ 	self setProperty: #hasEmphasisFromText toValue: priorEmphasis ~~ self emphasis.
- 	self setProperty: #hasEmphasisFromText toValue: priorFont ~~ self emphasis.
  	self setProperty: #hasColorFromText toValue: priorColor ~~ self color.!

Item was changed:
  ----- Method: PluggableListMorph class>>clearFilterDelay (in category 'preferences') -----
  clearFilterDelay
  	<preference: 'Filterable Lists Clear Delay'
  		category: 'scrolling'
  		description: 'Defines the maximum delay (in milliseconds) between keystrokes before the filter expression is cleared again.'
  		type: #Number>
  		
+ 	^ ClearFilterDelay ifNil: [1500]!
- 	^ ClearFilterDelay ifNil: [500]!

Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>collapseAll (in category 'events') -----
+ collapseAll
+ 	"Do not use #collapse for each child to avoid intermediate layout updates."
+ 	
+ 	| orphans |
+ 	orphans := OrderedCollection new.
+ 	self roots do: [:ea |
+ 		ea isExpanded: false.
+ 		ea firstChild ifNotNil: [:child | child withSiblingsDo: [:node | node recursiveAddTo: orphans]].
+ 		ea firstChild: nil].
+ 	self noteRemovalOfAll: orphans.
+ 	
+ 	self adjustSubmorphPositions.!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>expandAll (in category 'events') -----
  expandAll
+ 
+ 	selectedMorph ifNil: [^ self].
- 	(selectedMorph isNil
- 		or: [selectedMorph isExpanded])
- 		ifTrue: [^self].
  	self expandAll: selectedMorph.
  	self adjustSubmorphPositions!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>expandAll: (in category 'events') -----
  expandAll: aMorph
+ 
+ 	aMorph canExpand ifFalse: [^ self].
+ 	aMorph isExpanded ifFalse: [aMorph toggleExpandedState].
+ 	aMorph childrenDo: [:child | self expandAll: child].!
- 	| allChildren |
- 	aMorph toggleExpandedState.
- 	allChildren := OrderedCollection new: 10.
- 	aMorph recursiveAddTo: allChildren.
- 	allChildren do: [:each | 
- 		(each canExpand and: [each isExpanded not])
- 			ifTrue: [self expandAll: each]].
- !

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>itemFromPoint: (in category 'event handling') -----
  itemFromPoint: aPoint
  	"Return the list element (morph) at the given point or nil if outside"
  	| ptY visibleRows |
  	scroller hasSubmorphs ifFalse:[^nil].
  	(scroller fullBounds containsPoint: aPoint) ifFalse:[^nil].
  	
  	visibleRows := scroller submorphs select: [:m | m visible].
  	
  	ptY := (visibleRows first point: aPoint from: self) y.
  	"note: following assumes that submorphs are vertical, non-overlapping, and ordered"
  	visibleRows first top > ptY ifTrue:[^nil].
+ 	visibleRows last bottom < ptY ifTrue:[^visibleRows last].
- 	visibleRows last bottom < ptY ifTrue:[^nil].
  	"now use binary search"
  	^visibleRows
  		findBinary:[:item|
  			(item top <= ptY and:[item bottom >= ptY])
  				ifTrue:[0] "found"
  				ifFalse:[ (item top + item bottom // 2) > ptY ifTrue:[-1] ifFalse:[1]]]
  		ifNone: [nil]!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>update: (in category 'updating') -----
  update: aSymbol 
  	aSymbol == getSelectionSelector 
  		ifTrue: 
+ 			[self updateSelection.
- 			[self selection: self getCurrentSelectionItem.
  			^self].
  	aSymbol == getListSelector 
  		ifTrue: 
  			[self list: self getList.
  			^self].
  	((aSymbol isKindOf: Array) 
  		and: [aSymbol notEmpty and: [aSymbol first == #openPath]]) 
  			ifTrue: 
  				[^(scroller submorphs at: 1 ifAbsent: [^self]) 
  					openPath: aSymbol allButFirst]!

Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>updateSelection (in category 'updating') -----
+ updateSelection
+ 	"Fetch selected item from the model."
+ 	
+ 	self selection: self getCurrentSelectionItem.!