Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.336.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.336 Author: mt Time: 5 April 2023, 12:56:50.384931 pm UUID: 97a852f0-9638-4547-8449-aef57f5abcf4 Ancestors: ToolBuilder-Morphic-mt.335
For tree widget search (CMD+F), fix a issue where the model was not notified about the selected search result.
=============== Diff against ToolBuilder-Morphic-mt.335 ===============
Item was changed: ----- Method: PluggableTreeMorph>>findAgainNow (in category 'searching') ----- findAgainNow
(findQueue isNil or: [findQueue isEmpty]) ifTrue: [^ self flash]. Cursor wait showWhile: [ (self searchMode caseOf: { [#breadthFirst] -> [self findAgainNowBreadthFirst]. [#depthFirst] -> [self findAgainNowDepthFirst] }) ifNotNil: [:currentPath | "Search used model data. View might already be outdated. Collapse parent now to get up-to-date children." self selectedMorph ifNotNil: [:focus | focus isExpanded ifTrue: [ self toggleExpandedState: self selectedMorph]]. "Match!! Stop search for now. Select the match." self selectedPathWrappers: currentPath. self selectedMorph ifNil: [ ^ self inform: 'Could not find path. View up to date?' translated]. "Mimic filter function to highlight (and filter) search results." lastKeystrokes := findText. self filterTree. self scrollSelectionAndExtraIntoView. + self setSelectedMorphOnly: self selectedMorph. "Tell the model" ^ self]]. self inform: 'Nothing found.' translated.!
Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph + + self setSelectedMorphOnly: aMorph. - - selectedWrapper := aMorph complexContents. - - "Let the model now about the selected object, not wrapper." - setSelectionSelector ifNotNil: [:symbol | - model - perform: symbol - with: (selectedWrapper ifNotNil: [:w | w item])]. - self setSelectedParentMorph: aMorph. self setSelectedPath: aMorph.!
Item was added: + ----- Method: PluggableTreeMorph>>setSelectedMorphOnly: (in category 'selection') ----- + setSelectedMorphOnly: aMorph + + selectedWrapper := aMorph complexContents. + + "Let the model now about the selected object, not wrapper." + setSelectionSelector ifNotNil: [:symbol | + model + perform: symbol + with: (selectedWrapper ifNotNil: [:w | w item])].!
squeak-dev@lists.squeakfoundation.org