equal
deleted
inserted
replaced
76 aStream nextPutAll:source. |
76 aStream nextPutAll:source. |
77 ! ! |
77 ! ! |
78 |
78 |
79 !DoItChange methodsFor:'queries'! |
79 !DoItChange methodsFor:'queries'! |
80 |
80 |
81 isDoIt |
|
82 ^ true |
|
83 ! |
|
84 |
|
85 receiverClassName |
81 receiverClassName |
86 |tree| |
82 |tree| |
87 |
83 |
88 tree := Parser parseExpression:source. |
84 tree := Parser parseExpression:source. |
89 (tree isNil or:[tree isSymbol]) ifTrue:[^ nil]. |
85 (tree isNil or:[tree isSymbol]) ifTrue:[^ nil]. |
90 tree isMessage ifFalse:[^ nil]. |
86 tree isMessage ifFalse:[^ nil]. |
91 tree receiver isVariable ifFalse:[^ nil]. |
87 tree receiver isVariable ifFalse:[^ nil]. |
92 ^ tree receiver name |
88 ^ tree receiver name |
|
89 ! ! |
|
90 |
|
91 !DoItChange methodsFor:'testing'! |
|
92 |
|
93 isDoIt |
|
94 ^ true |
93 ! ! |
95 ! ! |
94 |
96 |
95 !DoItChange methodsFor:'visiting'! |
97 !DoItChange methodsFor:'visiting'! |
96 |
98 |
97 acceptChangeVisitor:aVisitor |
99 acceptChangeVisitor:aVisitor |
101 ! ! |
103 ! ! |
102 |
104 |
103 !DoItChange class methodsFor:'documentation'! |
105 !DoItChange class methodsFor:'documentation'! |
104 |
106 |
105 version |
107 version |
106 ^ '$Header: DoItChange.st 1909 2012-03-31 00:14:49Z vranyj1 $' |
108 ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.13 2014-02-19 13:05:08 cg Exp $' |
107 ! |
|
108 |
|
109 version_HG |
|
110 |
|
111 ^ '$Changeset: <not expanded> $' |
|
112 ! |
|
113 |
|
114 version_SVN |
|
115 ^ '§Id: DoItChange.st 1909 2012-03-31 00:14:49Z vranyj1 §' |
|
116 ! ! |
109 ! ! |
117 |
110 |