# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393976046 -3600
# Node ID 96239b58228ca9968737ddbd2189b74548dc7914
# Parent  ee34d5fd575a3fdef62fbc23981fd7e704c9045e
class: PPExtractProdcutionRefactoring
changed: #nameNewMethod:

diff -r ee34d5fd575a -r 96239b58228c gui/PPExtractProdcutionRefactoring.st
--- a/gui/PPExtractProdcutionRefactoring.st	Wed Mar 05 00:33:59 2014 +0100
+++ b/gui/PPExtractProdcutionRefactoring.st	Wed Mar 05 00:34:06 2014 +0100
@@ -52,21 +52,21 @@
 !
 
 nameNewMethod: aSymbol 
-	class addInstanceVariable: aSymbol asString.
-	extractedParseTree renameSelector: aSymbol andArguments: #().
-	modifiedParseTree := RBParseTreeRewriter 
-		replace: self methodDelimiter
-		with: aSymbol asString
-		in: modifiedParseTree
+        class addInstanceVariable: aSymbol asString.
+        extractedParseTree renameSelector: aSymbol andArguments: #().
+        modifiedParseTree := ParseTreeRewriter 
+                replace: self methodDelimiter
+                with: aSymbol asString
+                in: modifiedParseTree
 ! !
 
 !PPExtractProdcutionRefactoring class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $'
 ! !