# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1355909071 -3600
# Node ID 24efca93868b207e3e3e9dd94327307e852454e6
# Parent  139c669b52ba468a6ae3447d7506ed92003f9a4a
class: Collection
added: #writeStreamClass
changed: #writeStream

diff -r 139c669b52ba -r 24efca93868b Collection.st
--- a/Collection.st	Tue Dec 18 22:35:06 2012 +0100
+++ b/Collection.st	Wed Dec 19 10:24:31 2012 +0100
@@ -287,6 +287,20 @@
     ^ ValueNotFoundSignal
 ! !
 
+!Collection class methodsFor:'instance creation-streaming'!
+
+writeStreamClass
+    "the type of stream used in writeStream"
+
+    ^ WriteStream
+
+    "
+     OrderedCollection writeStreamClass
+    "
+
+    "Created: / 09-01-2011 / 10:37:15 / cg"
+! !
+
 !Collection class methodsFor:'misc ui support'!
 
 iconInBrowserSymbol
@@ -1873,7 +1887,7 @@
 writeStream
     "return a stream for writing onto the receiver"
 
-    ^ WriteStream on:self
+    ^ self class writeStreamClass on:self
 
     "
      |s|
@@ -4441,11 +4455,12 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.284 2012-11-28 11:05:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.285 2012-12-19 09:24:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.284 2012-11-28 11:05:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.285 2012-12-19 09:24:31 stefan Exp $'
 ! !
 
+
 Collection initialize!