Add refactoring

src/Refactoring-Changes/RBRenamePackageChange.class.st

@@ -34,8 +34,8 @@ RBRenamePackageChange >> primitiveExecute [
 { #category : #printing }
 RBRenamePackageChange >> printOn: aStream [ 
 	aStream
-		nextPutAll: self oldName;
+		nextPutAll: oldName;
 		nextPutAll: ' renameTo: ';
-		print: self newName;
+		print: newName;
 		nextPut: $!
 ]

src/Refactoring-Core/RBNamespace.class.st

@@ -510,6 +510,21 @@ RBNamespace >> renameInstanceVariable: oldName to: newName in: aRBClass around:
 		around: aBlock
 ]
 
+{ #category : #changes }
+RBNamespace >> renamePackage: aRBPackage to: aSymbol [
+	| change value dict |
+	change := changeFactory renamePackage: aRBPackage to: aSymbol.
+	self flushCaches.
+	dict := changedPackages.
+	"self markAsRemoved: aRBClass name.
+	self unmarkAsRemoved: aSymbol."
+	value := dict at: aRBPackage name.
+	dict removeKey: aRBPackage name.
+	dict at: aSymbol put: value.
+	value first name: aSymbol.
+	^ change
+]
+
 { #category : #changes }
 RBNamespace >> reparentClasses: aRBClassCollection to: newClass [ 
 	aRBClassCollection do: 

src/Refactoring-Core/RBPackageRefactoring.class.st

@@ -0,0 +1,38 @@
+"
+I am an abstract base class for package refactorings.
+
+All that I provide is the package name, my subclass refactorings are operating on, and a instance creation method for setting the package name and an initial namespace model.
+"
+Class {
+	#name : #RBPackageRefactoring,
+	#superclass : #RBRefactoring,
+	#instVars : [
+		'packageName'
+	],
+	#category : #'Refactoring-Core-Refactorings'
+}
+
+{ #category : #'as yet unclassified' }
+RBPackageRefactoring class >> model: aRBModel packageName: aName [ 
+	^ self new
+		model: aRBModel;
+		packageName: aName;
+		yourself
+]
+
+{ #category : #accessing }
+RBPackageRefactoring class >> packageName: aName [
+	^self new packageName: aName
+]
+
+{ #category : #accessing }
+RBPackageRefactoring >> packageName [
+
+	^ packageName
+]
+
+{ #category : #accessing }
+RBPackageRefactoring >> packageName: anObject [
+
+	packageName := anObject
+]

src/Refactoring-Core/RBRenamePackageRefactoring.class.st

@@ -0,0 +1,57 @@
+Class {
+	#name : #RBRenamePackageRefactoring,
+	#superclass : #RBPackageRefactoring,
+	#instVars : [
+		'package',
+		'newName'
+	],
+	#category : #'Refactoring-Core-Refactorings'
+}
+
+{ #category : #'instance creation' }
+RBRenamePackageRefactoring class >> model: aRBSmalltalk rename: aPkg to: aNewName [ 
+	^(self new)
+		model: aRBSmalltalk;
+		packageName: aPkg name newName: aNewName;
+		yourself
+]
+
+{ #category : #'instance creation' }
+RBRenamePackageRefactoring class >> rename: aClass to: aNewName [
+	^self new packageName: aClass name newName: aNewName
+]
+
+{ #category : #initialization }
+RBRenamePackageRefactoring >> packageName: aName newName: aNewName [ 
+	packageName := aName asSymbol.
+	package := self model packageNamed: packageName.
+	newName := aNewName asSymbol
+]
+
+{ #category : #preconditions }
+RBRenamePackageRefactoring >> preconditions [ 
+	^ self emptyCondition
+]
+
+{ #category : #transforming }
+RBRenamePackageRefactoring >> renameManifestClass [ 
+	|refactoring manifest|
+	manifest := package packageManifestOrNil.
+	refactoring := RBRenameClassRefactoring 
+		rename: manifest
+		to: (TheManifestBuilder manifestClassNameFor: newName).
+	self performCompositeRefactoring: refactoring
+]
+
+{ #category : #transforming }
+RBRenamePackageRefactoring >> renamePackage [
+
+	self model renamePackage: package to: newName
+]
+
+{ #category : #transforming }
+RBRenamePackageRefactoring >> transform [
+
+	self renamePackage.
+	self renameManifestClass.
+]