Scroll the list to the exact match if there is one.

pharo-spec · Sep 24, 2024 · 934e121 · 934e121
1 parent 2635cd9
commit 934e121
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/NewTools-Core/StBrowserSearchPresenter.class.st b/src/NewTools-Core/StBrowserSearchPresenter.class.st
@@ -219,13 +219,17 @@ StBrowserSearchPresenter >> selectedItems [
 { #category : 'updating' }
 StBrowserSearchPresenter >> updateList [
 
-	| newItems |
+	| newItems env |
+
+	env := self class environment.
 	newItems := searchField text
 		            ifEmpty: [ items ]
 		            ifNotEmpty: [ :text | self search: text ].
 
 	itemsList items = newItems ifFalse: [
-		itemsList
-			items: newItems;
-			selectFirst ]
+		itemsList items: newItems ].
+
+	(env hasClassNamed: searchField text)
+		ifTrue: [ itemsList selectItem: (env at: searchField text asSymbol) scrollToSelection: true ]
+		ifFalse: [ itemsList selectFirst ]
 ]