equal
deleted
inserted
replaced
4643 ]. |
4643 ]. |
4644 |
4644 |
4645 [ |
4645 [ |
4646 again := false. |
4646 again := false. |
4647 |
4647 |
4648 aspects at:#classNameChannel put:(specClassName ? 'NewApplication') asValue. |
4648 aspects at:#classNameChannel put:(specClassName ? 'NewApplication') asValue. |
4649 aspects at:#methodNameChannel put:(specSelector ? 'windowSpec') asValue. |
4649 aspects at:#methodNameChannel put:(specSelector ? 'windowSpec') asValue. |
4650 aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue. |
4650 aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue. |
4651 |
4651 |
4652 (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[ |
4652 (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[ |
4653 specClassName := readFromModelKeyed value:#classNameChannel. |
4653 specClassName := readFromModelKeyed value:#classNameChannel. |
5128 classAndSelector isNil ifTrue:[^ false]. |
5128 classAndSelector isNil ifTrue:[^ false]. |
5129 |
5129 |
5130 self clearModified. |
5130 self clearModified. |
5131 self painter resetModification. |
5131 self painter resetModification. |
5132 |
5132 |
5133 specClassName := classAndSelector methodClass. |
5133 specClass := classAndSelector methodClass. |
|
5134 specClassName := classAndSelector methodClass name. |
5134 specSelector := classAndSelector methodSelector. |
5135 specSelector := classAndSelector methodSelector. |
5135 specSuperclassName := specClassName superclass name. |
5136 specSuperclassName := specClass superclass name. |
5136 self doSave. |
5137 self doSave. |
5137 ^ true |
5138 ^ true |
5138 ! |
5139 ! |
5139 |
5140 |
5140 doSelectAspectMethod:aspectSelector |
5141 doSelectAspectMethod:aspectSelector |