--- 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 $'
! !