Merge remote-tracking branch 'origin/main'

src/GToolkit-Coder-UI/GtCoderNavigationClassesHierarchyTreeElement.class.st

@@ -228,7 +228,7 @@ GtCoderNavigationClassesHierarchyTreeElement >> renameClass: aClass inElement: e
 		text: aClass name;
 		when: BrEditorAcceptWish
 			do: [ :aWish | 
-				refactoring := RBRenameClassRefactoring
+				refactoring := GtRBRenameClassRefactoring
 						rename: aClass name
 						to: aWish text asString.
 				edit switchToLabel.

src/GToolkit-Coder-UI/GtCoderNavigationPackagesTagsClassesElement.class.st

@@ -642,7 +642,7 @@ GtCoderNavigationPackagesTagsClassesElement >> renameMethod: aSelector inElement
 		text: aSelector;
 		when: BrEditorAcceptWish
 			do: [ :aWish | 
-				refactoring := RBRenameMethodRefactoring
+				refactoring := GtRBRenameMethodRefactoring
 						renameMethod: aSelector
 						in: self selectedClass
 						to: aWish text asString

src/GToolkit-Coder/GtCoderRenameMethodRefactoring.class.st

@@ -1,10 +1,10 @@
 Class {
 	#name : #GtCoderRenameMethodRefactoring,
-	#superclass : #RBRenameMethodRefactoring,
+	#superclass : #GtRBRenameMethodRefactoring,
 	#instVars : [
 		'methodCoder'
 	],
-	#category : 'GToolkit-Coder-Refactoring'
+	#category : #'GToolkit-Coder-Refactoring'
 }
 
 { #category : #accessing }

src/GToolkit-Coder/GtRBRenameMethodRefactoring.class.st

@@ -0,0 +1,20 @@
+Class {
+	#name : #GtRBRenameMethodRefactoring,
+	#superclass : #RBRenameMethodRefactoring,
+	#category : #'GToolkit-Coder-Refactorings'
+}
+
+{ #category : #accessing }
+GtRBRenameMethodRefactoring >> executeRenameExtensions [
+	(Pragma
+		allNamed: #gtRename
+		from: self class
+		to: GtRBRenameMethodRefactoring)
+		do: [ :each | self perform: each method selector ]
+]
+
+{ #category : #accessing }
+GtRBRenameMethodRefactoring >> renameMessageSends [
+	super renameMessageSends.
+	self executeRenameExtensions
+]