--- a/SortColl.st	Mon May 01 23:30:32 1995 +0200
+++ b/SortColl.st	Mon May 01 23:40:01 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.14 1995-02-02 12:22:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.15 1995-05-01 21:39:18 claus Exp $
 '!
 
 !SortedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.14 1995-02-02 12:22:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.15 1995-05-01 21:39:18 claus Exp $
 "
 !
 
@@ -87,6 +87,17 @@
     "set the sort-block"
 
     ^ super new setSortBlock:aBlock
+!
+
+withAll:aCollection sortBlock:aBlock
+    "initialize from aCollection and set the sort-block"
+
+    ^ (self sortBlock:aBlock) addAll:aCollection
+
+    "
+     SortedCollection withAll:#(1 2 3 4 5 6 7 8 9 0)
+		      sortBlock:[:a :b | a > b] 
+    "
 ! !
 
 !SortedCollection methodsFor:'copying'!