equal
deleted
inserted
replaced
3894 aspects at:#classNameChannel put:(specClassName ? 'NewApplication') asValue. |
3894 aspects at:#classNameChannel put:(specClassName ? 'NewApplication') asValue. |
3895 aspects at:#methodNameChannel put:(specSelector ? 'windowSpec') asValue. |
3895 aspects at:#methodNameChannel put:(specSelector ? 'windowSpec') asValue. |
3896 aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue. |
3896 aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue. |
3897 |
3897 |
3898 (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[ |
3898 (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[ |
3899 specClassName := readFromModelKeyed value:#classNameChannel. |
3899 specClassName := readFromModelKeyed value:#classNameChannel. |
3900 specSelector := readFromModelKeyed value:#methodNameChannel. |
3900 specSelector := readFromModelKeyed value:#methodNameChannel. |
3901 specSuperclassName := readFromModelKeyed value:#superclassNameChannel. |
3901 specSuperclassName := readFromModelKeyed value:#superclassNameChannel. |
3902 |
3902 |
3903 (again := self checkClassAndSelector not) ifFalse:[ |
3903 (again := self checkClassAndSelector not) ifFalse:[ |
3904 self painter className:specClassName |
3904 self painter className:specClassName |