--- a/Metaclass.st Fri Jul 31 17:15:53 1998 +0200
+++ b/Metaclass.st Fri Jul 31 19:37:00 1998 +0200
@@ -329,15 +329,14 @@
"
get list of all subclasses - do before superclass is changed
"
- allSubclasses := oldClass allSubclasses.
- allSubclasses := allSubclasses asSortedCollection:[:a :b |
- b isSubclassOf:a
- ].
+ allSubclasses := oldClass allSubclasses asOrderedCollection.
+ "/ cg: wrong: allSubclasses := allSubclasses asSortedCollection:[:a :b | b isSubclassOf:a].
+ allSubclasses := allSubclasses topologicalSort:[:a :b | b isSubclassOf:a].
oldToNew := IdentityDictionary new.
"
- create a new class tree, based on new version
+ create a new class tree, based on the new version
"
allSubclasses do:[:aSubclass |
oldSuper := aSubclass superclass.
@@ -502,7 +501,7 @@
"Created: / 29.10.1995 / 19:57:08 / cg"
"Modified: / 1.4.1997 / 15:44:09 / stefan"
- "Modified: / 29.7.1998 / 12:12:50 / cg"
+ "Modified: / 31.7.1998 / 18:02:00 / cg"
! !
!Metaclass methodsFor:'copying'!
@@ -1968,6 +1967,6 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.130 1998-07-29 11:24:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.131 1998-07-31 17:37:00 cg Exp $'
! !
Metaclass initialize!