equal
deleted
inserted
replaced
132 |
132 |
133 applicationName:aName |
133 applicationName:aName |
134 self className:aName |
134 self className:aName |
135 ! |
135 ! |
136 |
136 |
|
137 class:aClass superclassName:aSuperclassName selector:aSelector |
|
138 self assert:(aClass isBehavior). |
|
139 className := aClass name. |
|
140 superclassName := aSuperclassName. |
|
141 methodName := aSelector. |
|
142 ! |
|
143 |
137 className |
144 className |
138 ^ className |
145 ^ className |
139 ! |
146 ! |
140 |
147 |
141 className:aName |
148 className:aName |
|
149 self assert:(aName isString). |
142 className := aName |
150 className := aName |
143 ! |
151 ! |
144 |
152 |
145 className:aClassName superclassName:aSuperclassName selector:aSelector |
153 className:aClassName superclassName:aSuperclassName selector:aSelector |
|
154 self assert:(aClassName isString). |
146 className := aClassName. |
155 className := aClassName. |
147 superclassName := aSuperclassName. |
156 superclassName := aSuperclassName. |
148 methodName := aSelector. |
157 methodName := aSelector. |
149 |
|
150 ! |
158 ! |
151 |
159 |
152 methodName |
160 methodName |
153 ^ methodName |
161 ^ methodName |
154 ! |
162 ! |