equal
deleted
inserted
replaced
779 guess isNil ifTrue:[ |
779 guess isNil ifTrue:[ |
780 guess := SystemBrowser classesWithNameSimilarTo:baseName. |
780 guess := SystemBrowser classesWithNameSimilarTo:baseName. |
781 guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ]. |
781 guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ]. |
782 ]. |
782 ]. |
783 ]. |
783 ]. |
784 |
784 Dialog |
785 superClass := Dialog |
785 withAdditionalOKButtonLabeled:'Create Dummy' |
786 requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' |
786 action:[ |
787 initialAnswer:(guess ? superClassName). |
787 |newClass| |
|
788 newClass := Object subclass:(superClassName asSymbol) |
|
789 instanceVariableNames:'' |
|
790 classVariableNames:'' |
|
791 poolDictionaries:'' |
|
792 category:'* dummy *'. |
|
793 newClass. |
|
794 ] |
|
795 do:[ |
|
796 superClass := Dialog |
|
797 requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:' |
|
798 initialAnswer:(guess ? superClassName). |
|
799 ]. |
788 |
800 |
789 superClass isNil ifTrue:[AbortOperationRequest raise. ^ self ]. |
801 superClass isNil ifTrue:[AbortOperationRequest raise. ^ self ]. |
790 ]. |
802 ]. |
791 |
803 |
792 superClass notNil ifTrue:[ |
804 superClass notNil ifTrue:[ |
808 ] ifFalse:[ |
820 ] ifFalse:[ |
809 aChange apply. |
821 aChange apply. |
810 ]. |
822 ]. |
811 |
823 |
812 "Modified: / 29-01-2011 / 12:30:35 / cg" |
824 "Modified: / 29-01-2011 / 12:30:35 / cg" |
|
825 "Modified: / 01-07-2018 / 10:09:19 / Claus Gittinger" |
813 ! |
826 ! |
814 |
827 |
815 changeIsFollowupMethodChange:changeNr |
828 changeIsFollowupMethodChange:changeNr |
816 ^ false |
829 ^ false |
817 |
830 |