Merge 60472d2

src/Spec2-Code-Tests/SpCodePresenterTest.class.st

@@ -177,6 +177,31 @@ SpCodePresenterTest >> testDoBrowseImplementors [
 		equals: { SpCodePresenterTest>>#testDoBrowseImplementors }
 ]
 
+{ #category : 'tests - commands' }
+SpCodePresenterTest >> testDoBrowseMethod [
+
+	| navigation |
+	navigation := SpCodeSystemNavigationMock new.
+	presenter systemNavigation: navigation.
+	presenter environment add: SpCodePresenterTest binding.
+	presenter environment add: SpCodeSystemNavigationMock binding.
+	presenter beForScripting.
+	self openInstance.
+
+
+	presenter text: 'Object'.
+	presenter doBrowseClass.
+
+	self assert: navigation messageList isNil.
+
+	navigation reset.
+	presenter text: 'selectAll'.
+	presenter doBrowseClass.
+
+	self assert: navigation browseSelector notEmpty.
+	self assert: navigation browseSelector equals: #selectAll
+]
+
 { #category : 'tests - commands' }
 SpCodePresenterTest >> testDoBrowseMethodReferences [
 

src/Spec2-Code-Tests/SpCodeSystemNavigationMock.class.st

@@ -16,6 +16,12 @@ SpCodeSystemNavigationMock >> browse: aClass [
 	browseClass := aClass
 ]
 
+{ #category : 'opening' }
+SpCodeSystemNavigationMock >> browseAllImplementorsOf: aSelector [
+
+	browseSelector := aSelector
+]
+
 { #category : 'accessing' }
 SpCodeSystemNavigationMock >> browseClass [
 

src/Spec2-Code/SpCodePresenter.class.st

@@ -283,8 +283,10 @@ SpCodePresenter >> doBrowseClass [
 		ifTrue: [ 
 				| classToBrowse |
 				classToBrowse := self class environment at: result ifAbsent: [ nil ].	
-					classToBrowse ifNotNil: [ ^ self systemNavigation browse: classToBrowse ] ].
-	self systemNavigation browse: result 
+				classToBrowse ifNotNil: [ ^ self systemNavigation browse: classToBrowse ] ].
+	result 
+		ifNil: [ self systemNavigation browseAllImplementorsOf: self selectedTextOrLine asSymbol ] 
+		ifNotNil: [ self systemNavigation browse: result ]
 ]
 
 { #category : 'commands' }