Merge pull request #684 from hernanmd/newfinder_fixes

Add missing methods in Finder
pharo-spec · Feb 12, 2024 · c37e6c5 · c37e6c5
2 parents 41f0bf9 + 4798675
commit c37e6c5
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 3 deletions.
diff --git a/src/NewTools-Finder/StFinderClassResult.class.st b/src/NewTools-Finder/StFinderClassResult.class.st
@@ -93,6 +93,12 @@ StFinderClassResult >> hasSelectorParent [
 	^ self parent isNotNil and: [ self parent isSelectorResult ]
 ]
 
+{ #category : 'testing' }
+StFinderClassResult >> isClassResult [
+
+	^ true
+]
+
 { #category : 'action' }
 StFinderClassResult >> referencesAction [
 

diff --git a/src/NewTools-Finder/StFinderPresenter.class.st b/src/NewTools-Finder/StFinderPresenter.class.st
@@ -346,6 +346,8 @@ StFinderPresenter >> initializeResultTree [
 		beMultipleSelection;
 		display: [ :result | result displayString ];
 		displayIcon: [ :result | result displayIcon ];
+		bindKeyCombination: $b meta toAction: [ self resultTree selectedItem browseAction ];
+		bindKeyCombination: $r meta toAction: [ self resultTree selectedItem referencesAction ];
 		contextMenu: [ (self rootCommandsGroup / 'StFinderSelContextualMenu') beRoot asMenuPresenter ].
 ]
 
@@ -547,7 +549,7 @@ StFinderPresenter >> updateResultsWith: results time: time [
 		roots: results;
 		children: [ :result | result children ].
 	self updateResultsBehavior.
-	resultStatusBar pushMessage: (self updateStatusBarTextFrom: results time: time)
+	resultStatusBar pushMessage: (self updateStatusBarTextFrom: results time: time).
 ]
 
 { #category : 'updating - widgets' }

diff --git a/src/NewTools-Finder/StMethodFinderSend.class.st b/src/NewTools-Finder/StMethodFinderSend.class.st
@@ -62,8 +62,7 @@ StMethodFinderSend >> evaluateWithTimeOut: anInteger [
 
 	runner := TKTLocalProcessTaskRunner new.
 	runner 
-		schedule: [ 
-			result := [ self evaluate ] onErrorDo: [ : e | self handleError: e ] ] asTask
+		schedule: [ result := [ self evaluate ] onErrorDo: [ : e | self handleError: e ] ] asTask
 		timeout: anInteger milliSeconds.
 	^ result