Mercurial Mercurial > hg > stx-goodies-petitparser / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: PPRenameProdcutionRefactoring expecco_2_7_0_49 expecco_2_7_5 expecco_2_7_5a
authorClaus Gittinger <cg@exept.de>
Wed, 05 Mar 2014 00:33:51 +0100
changeset 362 0809350b82c2
parent 361 39a00be69192
child 363 ee34d5fd575a
class: PPRenameProdcutionRefactoring changed: #transform
gui/PPRenameProdcutionRefactoring.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
hg/stx-goodies-petitparser