changeset 1211 | 53cfc272acc9 |
parent 1204 | faff065c78fd |
child 1230 | 23e5d0c133e8 |
1210:30bd57bbe9ce | 1211:53cfc272acc9 |
---|---|
2338 ! |
2338 ! |
2339 |
2339 |
2340 checkClassAndSelector |
2340 checkClassAndSelector |
2341 "checks for class & superclass" |
2341 "checks for class & superclass" |
2342 |
2342 |
2343 |superclass cls ns| |
2343 |superclass cls| |
2344 |
2344 |
2345 specClass isNil ifTrue:[^ false]. |
2345 specClass isNil ifTrue:[^ false]. |
2346 |
2346 |
2347 cls := self resolveName:specClass. |
2347 cls := self resolveName:specClass. |
2348 |
2348 |