782 newNames := self instVarNames asOrderedCollection. |
782 newNames := self instVarNames asOrderedCollection. |
783 newNames remove:anInstVar ifAbsent:[^ self]. |
783 newNames remove:anInstVar ifAbsent:[^ self]. |
784 newNames := newNames asStringWith:Character space. |
784 newNames := newNames asStringWith:Character space. |
785 |
785 |
786 self isMeta ifTrue:[ |
786 self isMeta ifTrue:[ |
787 ^ self instanceVariableNames:newNames. |
787 ^ self instanceVariableNames:newNames. |
788 ]. |
788 ]. |
789 |
789 |
790 sel := self definitionSelector. |
790 sel := self definitionSelector. |
791 Class nameSpaceQuerySignal answer:(self nameSpace) |
791 Class nameSpaceQuerySignal answer:(self nameSpace) |
792 do:[ |
792 do:[ |
793 args := Array |
793 args := Array |
794 with:(self nameWithoutPrefix asSymbol) |
794 with:(self nameWithoutPrefix asSymbol) |
795 with:newNames |
795 with:newNames |
796 with:(self classVariableString) |
796 with:(self classVariableString) |
797 with:'' |
797 with:(self sharedPoolNames asStringWith: Character space) |
798 with:(self category). |
798 with:(self category). |
799 |
799 |
800 sel numArgs == 6 ifTrue:[ |
800 sel numArgs == 6 ifTrue:[ |
801 args := args copyWith:(self owningClass). |
801 args := args copyWith:(self owningClass). |
802 ]. |
802 ]. |
803 |
803 |
804 newClass := self superclass |
804 newClass := self superclass |
805 perform:sel withArguments:args. |
805 perform:sel withArguments:args. |
806 newClass recompile. |
806 newClass recompile. |
807 ]. |
807 ]. |
808 |
808 |
809 ^ newClass |
809 ^ newClass |
|
810 |
|
811 "Modified: / 10-07-2013 / 14:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
810 ! |
812 ! |
811 |
813 |
812 reorganize |
814 reorganize |
813 "for ST80 compatibility; |
815 "for ST80 compatibility; |
814 nothing done here." |
816 nothing done here." |
817 reorganizeFromString:orgString |
819 reorganizeFromString:orgString |
818 "for ST80 compatibility but without functionality" |
820 "for ST80 compatibility but without functionality" |
819 |
821 |
820 "Created: / 28.3.1998 / 21:21:52 / cg" |
822 "Created: / 28.3.1998 / 21:21:52 / cg" |
821 ! ! |
823 ! ! |
|
824 |
822 |
825 |
823 !ClassDescription methodsFor:'Compatibility-V''Age'! |
826 !ClassDescription methodsFor:'Compatibility-V''Age'! |
824 |
827 |
825 categoriesFor:aSelector are:listOfCategories |
828 categoriesFor:aSelector are:listOfCategories |
826 "to allow fileIn of V'Age code. |
829 "to allow fileIn of V'Age code. |
4293 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.241 2013-06-30 06:55:40 cg Exp $' |
4296 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.241 2013-06-30 06:55:40 cg Exp $' |
4294 ! |
4297 ! |
4295 |
4298 |
4296 version_CVS |
4299 version_CVS |
4297 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.241 2013-06-30 06:55:40 cg Exp $' |
4300 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.241 2013-06-30 06:55:40 cg Exp $' |
|
4301 ! |
|
4302 |
|
4303 version_HG |
|
4304 |
|
4305 ^ '$Changeset: <not expanded> $' |
4298 ! ! |
4306 ! ! |
4299 |
4307 |
4300 |
4308 |
4301 ClassDescription initialize! |
4309 ClassDescription initialize! |
4302 ClassDescription::MethodRedefinitionNotification initialize! |
4310 ClassDescription::MethodRedefinitionNotification initialize! |