equal
deleted
inserted
replaced
50 ifFalse: [ self refactoringError: 'Invalid production name.' ]. |
50 ifFalse: [ self refactoringError: 'Invalid production name.' ]. |
51 ^ targetProduction asSymbol |
51 ^ targetProduction asSymbol |
52 ! |
52 ! |
53 |
53 |
54 nameNewMethod: aSymbol |
54 nameNewMethod: aSymbol |
55 class addInstanceVariable: aSymbol asString. |
55 class addInstanceVariable: aSymbol asString. |
56 extractedParseTree renameSelector: aSymbol andArguments: #(). |
56 extractedParseTree renameSelector: aSymbol andArguments: #(). |
57 modifiedParseTree := RBParseTreeRewriter |
57 modifiedParseTree := ParseTreeRewriter |
58 replace: self methodDelimiter |
58 replace: self methodDelimiter |
59 with: aSymbol asString |
59 with: aSymbol asString |
60 in: modifiedParseTree |
60 in: modifiedParseTree |
61 ! ! |
61 ! ! |
62 |
62 |
63 !PPExtractProdcutionRefactoring class methodsFor:'documentation'! |
63 !PPExtractProdcutionRefactoring class methodsFor:'documentation'! |
64 |
64 |
65 version |
65 version |
66 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $' |
66 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $' |
67 ! |
67 ! |
68 |
68 |
69 version_CVS |
69 version_CVS |
70 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $' |
70 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $' |
71 ! ! |
71 ! ! |
72 |
72 |