| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Fri, 24 Jul 2015 15:06:54 +0100 | |
| changeset 502 | 1e45d3c96ec5 |
| parent 345 | f561de4b2087 |
| permissions | -rw-r--r-- |
| 338 | 1 |
"{ Package: 'stx:goodies/petitparser/gui' }"
|
2 |
||
|
345
f561de4b2087
class: PPRemoveParserRefactoring
Claus Gittinger <cg@exept.de>
parents:
338
diff
changeset
|
3 |
RemoveClassRefactoring subclass:#PPRemoveParserRefactoring |
| 338 | 4 |
instanceVariableNames:'class' |
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
7 |
category:'PetitGui-Refactoring' |
|
8 |
! |
|
9 |
||
10 |
||
11 |
!PPRemoveParserRefactoring class methodsFor:'instance creation'! |
|
12 |
||
13 |
onClass: aClass |
|
14 |
^ self new |
|
15 |
setClass: aClass; |
|
16 |
yourself |
|
17 |
! ! |
|
18 |
||
19 |
!PPRemoveParserRefactoring methodsFor:'initialization'! |
|
20 |
||
21 |
setClass: aClass |
|
22 |
class := self classObjectFor: aClass |
|
23 |
! ! |
|
24 |
||
25 |
!PPRemoveParserRefactoring methodsFor:'preconditions'! |
|
26 |
||
27 |
preconditions |
|
28 |
^ (self checkCompositeParser: class) & (RBCondition hasSubclasses: class) not |
|
29 |
! ! |
|
30 |
||
31 |
!PPRemoveParserRefactoring methodsFor:'transforming'! |
|
32 |
||
33 |
transform |
|
34 |
model removeClass: class |
|
35 |
! ! |
|
36 |
||
37 |
!PPRemoveParserRefactoring class methodsFor:'documentation'! |
|
38 |
||
39 |
version |
|
|
345
f561de4b2087
class: PPRemoveParserRefactoring
Claus Gittinger <cg@exept.de>
parents:
338
diff
changeset
|
40 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRemoveParserRefactoring.st,v 1.2 2014-03-04 21:18:39 cg Exp $' |
| 338 | 41 |
! |
42 |
||
43 |
version_CVS |
|
|
345
f561de4b2087
class: PPRemoveParserRefactoring
Claus Gittinger <cg@exept.de>
parents:
338
diff
changeset
|
44 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRemoveParserRefactoring.st,v 1.2 2014-03-04 21:18:39 cg Exp $' |
| 338 | 45 |
! ! |
46 |