equal
deleted
inserted
replaced
22007 ]. |
22007 ]. |
22008 |
22008 |
22009 newClass := aClass superclass |
22009 newClass := aClass superclass |
22010 perform:sel |
22010 perform:sel |
22011 with:newClassName asSymbol |
22011 with:newClassName asSymbol |
22012 with:aClass instanceVariableString "/ instanceVariableNames: |
22012 with:aClass instanceVariableString |
22013 with:aClass classVariableString "/ classVariableNames: |
22013 with:aClass classVariableString |
22014 with:'' "/ poolDictionaries: |
22014 with:aClass poolDictionaries |
22015 with:(ownerOrNil ifNil:[aClass category] ifNotNil:[ownerOrNil]). "/ category: or privateIn: |
22015 with:(ownerOrNil ifNil:[aClass category] ifNotNil:[ownerOrNil]). "/ category: or privateIn: |
22016 |
22016 |
22017 newClass isNil ifTrue:[ |
22017 newClass isNil ifTrue:[ |
22018 self error:'Internal class-definition error (should not happen)' mayProceed:true. |
22018 self error:'Internal class-definition error (should not happen)' mayProceed:true. |
22019 ^ self. |
22019 ^ self. |
22052 (newMetaclass includesSelector:#initialize) ifTrue:[ |
22052 (newMetaclass includesSelector:#initialize) ifTrue:[ |
22053 newClass initialize. |
22053 newClass initialize. |
22054 ]. |
22054 ]. |
22055 newClass package:(Class packageQuerySignal query). |
22055 newClass package:(Class packageQuerySignal query). |
22056 ^ newClass |
22056 ^ newClass |
|
22057 |
|
22058 "Modified: / 22-12-2010 / 18:44:04 / cg" |
22057 ! |
22059 ! |
22058 |
22060 |
22059 doMoveMethodsOfClass:aClass fromProject:oldProject toProject:newProject |
22061 doMoveMethodsOfClass:aClass fromProject:oldProject toProject:newProject |
22060 |movedInstMethods movedClassMethods| |
22062 |movedInstMethods movedClassMethods| |
22061 |
22063 |
44775 ! ! |
44777 ! ! |
44776 |
44778 |
44777 !NewSystemBrowser class methodsFor:'documentation'! |
44779 !NewSystemBrowser class methodsFor:'documentation'! |
44778 |
44780 |
44779 version |
44781 version |
44780 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $' |
44782 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $' |
44781 ! |
44783 ! |
44782 |
44784 |
44783 version_CVS |
44785 version_CVS |
44784 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $' |
44786 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $' |
44785 ! ! |
44787 ! ! |
44786 |
44788 |
44787 NewSystemBrowser initialize! |
44789 NewSystemBrowser initialize! |