# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393976031 -3600
# Node ID 0809350b82c2b8fa98995bbf3dc9409467cd1c8c
# Parent  39a00be691927fa3c78221486a3ddd38331003f1
class: PPRenameProdcutionRefactoring
changed: #transform

diff -r 39a00be69192 -r 0809350b82c2 gui/PPRenameProdcutionRefactoring.st
--- a/gui/PPRenameProdcutionRefactoring.st	Wed Mar 05 00:33:40 2014 +0100
+++ b/gui/PPRenameProdcutionRefactoring.st	Wed Mar 05 00:33:51 2014 +0100
@@ -41,32 +41,32 @@
 !PPRenameProdcutionRefactoring methodsFor:'transforming'!
 
 transform
-	| baseClass oldEnvironment |
-	baseClass := class whoDefinesInstanceVariable: oldProduction asString.
-	self performComponentRefactoring: (RBRenameInstanceVariableRefactoring
-		model: model
-		rename: oldProduction asString
-		to: newProduction asString
-		in: baseClass).
-	oldEnvironment := model environment.
-	model environment: (model environment
-		forClasses: baseClass realClass withAllSubclasses).
-	[ self performComponentRefactoring: (RBRenameMethodRefactoring
-		model: model
-		renameMethod: oldProduction asSymbol
-		in: baseClass
-		to: newProduction asSymbol 
-		permutation: #()) ]
-			ensure: [ model environment: oldEnvironment ]
+        | baseClass oldEnvironment |
+        baseClass := class whoDefinesInstanceVariable: oldProduction asString.
+        self performComponentRefactoring: (RenameInstanceVariableRefactoring
+                model: model
+                rename: oldProduction asString
+                to: newProduction asString
+                in: baseClass).
+        oldEnvironment := model environment.
+        model environment: (model environment
+                forClasses: baseClass realClass withAllSubclasses).
+        [ self performComponentRefactoring: (RenameMethodRefactoring
+                model: model
+                renameMethod: oldProduction asSymbol
+                in: baseClass
+                to: newProduction asSymbol 
+                permutation: #()) ]
+                        ensure: [ model environment: oldEnvironment ]
 ! !
 
 !PPRenameProdcutionRefactoring class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.2 2014-03-04 21:18:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.3 2014-03-04 23:33:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.2 2014-03-04 21:18:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.3 2014-03-04 23:33:51 cg Exp $'
 ! !