Merge pull request #721 from tesonep/fixing-method-versions-window

Fixing Version Browser Presenter
pharo-spec · Mar 18, 2024 · 2e4b194 · 2e4b194
2 parents 9571836 + 45272a5
commit 2e4b194
Show file tree

Hide file tree

Showing 5 changed files with 24 additions and 4 deletions.
diff --git a/src/NewTools-MethodBrowsers/StMessageImplementorsCommand.class.st b/src/NewTools-MethodBrowsers/StMessageImplementorsCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#tag : 'Commands'
 }
 
+{ #category : 'default' }
+StMessageImplementorsCommand class >> defaultDescription [
+
+	^ 'Browse all methods implementing the selector of the current method'
+]
+
 { #category : 'accessing' }
 StMessageImplementorsCommand class >> defaultName [
 

diff --git a/src/NewTools-MethodBrowsers/StMessageSendersCommand.class.st b/src/NewTools-MethodBrowsers/StMessageSendersCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#tag : 'Commands'
 }
 
+{ #category : 'default' }
+StMessageSendersCommand class >> defaultDescription [
+
+	^ 'Browse all methods sending messages with the selector of the current method'
+]
+
 { #category : 'accessing' }
 StMessageSendersCommand class >> defaultName [
 

diff --git a/src/NewTools-MethodBrowsers/StMessageUsersCommand.class.st b/src/NewTools-MethodBrowsers/StMessageUsersCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#tag : 'Commands'
 }
 
+{ #category : 'default' }
+StMessageUsersCommand class >> defaultDescription [
+
+	^ 'Browse all methods using the selector of the current method'
+]
+
 { #category : 'accessing' }
 StMessageUsersCommand class >> defaultName [
 

diff --git a/src/NewTools-MethodBrowsers/StVersionBrowserPresenter.class.st b/src/NewTools-MethodBrowsers/StVersionBrowserPresenter.class.st
@@ -204,8 +204,10 @@ StVersionBrowserPresenter >> doRevert [
 StVersionBrowserPresenter >> initializePresenters [
 
 	messageList := self newMessageList.
-	toolbarPresenter := self newMessageToolbar.
-
+	toolbarPresenter := self newMessageToolbar
+		messageList: messageList;
+		yourself.
+
 	messageList
 		topologicSort: false;
 		sortingBlock: [ :a | a annotationNamed: #versionIndex ifAbsent: [ 0 ] ] ascending.

diff --git a/src/NewTools-MethodBrowsers/StVersionRevertCommand.class.st b/src/NewTools-MethodBrowsers/StVersionRevertCommand.class.st
@@ -6,10 +6,10 @@ Class {
 	#tag : 'Commands'
 }
 
-{ #category : 'accessing' }
+{ #category : 'default' }
 StVersionRevertCommand class >> defaultDescription [
 
-	^ 'Compare selected version to the current version'
+	^ 'Revert the current method to the selected version'
 ]
 
 { #category : 'accessing' }