--- a/HierNode.st Mon Jun 30 22:12:24 1997 +0200
+++ b/HierNode.st Tue Jul 01 12:00:41 1997 +0200
@@ -81,13 +81,15 @@
newInst name:aClass name.
newInst contents:aClass.
newInst level:level.
- aClass subclasses do:[:aSubClass |
+ newInst childCollectionClass:OrderedCollection.
+ (aClass subclasses asSortedCollection:[:a :b | a name < b name])
+ do:[:aSubClass |
newInst addChild:(self newAsTreeFromSmalltalkClass:aSubClass level:level+1).
].
^newInst
"Created: 15.4.1997 / 16:33:52 / cg"
- "Modified: 15.4.1997 / 16:34:52 / cg"
+ "Modified: 1.7.1997 / 11:57:15 / cg"
!
newWithName:aString
@@ -526,5 +528,5 @@
!HierarchyNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.6 1997-06-30 11:00:13 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.7 1997-07-01 10:00:41 cg Exp $'
! !
--- a/HierarchyNode.st Mon Jun 30 22:12:24 1997 +0200
+++ b/HierarchyNode.st Tue Jul 01 12:00:41 1997 +0200
@@ -81,13 +81,15 @@
newInst name:aClass name.
newInst contents:aClass.
newInst level:level.
- aClass subclasses do:[:aSubClass |
+ newInst childCollectionClass:OrderedCollection.
+ (aClass subclasses asSortedCollection:[:a :b | a name < b name])
+ do:[:aSubClass |
newInst addChild:(self newAsTreeFromSmalltalkClass:aSubClass level:level+1).
].
^newInst
"Created: 15.4.1997 / 16:33:52 / cg"
- "Modified: 15.4.1997 / 16:34:52 / cg"
+ "Modified: 1.7.1997 / 11:57:15 / cg"
!
newWithName:aString
@@ -526,5 +528,5 @@
!HierarchyNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.6 1997-06-30 11:00:13 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.7 1997-07-01 10:00:41 cg Exp $'
! !