--- a/RunArray.st	Sat May 11 13:55:40 1996 +0200
+++ b/RunArray.st	Sat May 11 14:07:28 1996 +0200
@@ -199,9 +199,23 @@
 
 new:size
     "ignore the size argument - we dont know how many runs are
-     needed - anyway"
+     needed."
 
     ^ self new
+
+    "Modified: 11.5.1996 / 14:07:12 / cg"
+!
+
+new:size withAll:anObject
+    "create a new runArray, containing anObject size times"
+
+    ^ self basicNew setElement:anObject occurrences:size
+
+    "
+     RunArray new:100 withAll:#hello
+    "
+
+    "Modified: 11.5.1996 / 14:06:48 / cg"
 ! !
 
 !RunArray methodsFor:'accessing'!
@@ -787,6 +801,14 @@
 
     "Created: 10.5.1996 / 17:12:28 / cg"
     "Modified: 11.5.1996 / 13:35:21 / cg"
+!
+
+setElement:newObject occurrences:n
+    "private instance setup"
+
+    contentsArray := Array with:n with:newObject.
+
+    "Created: 11.5.1996 / 14:05:58 / cg"
 ! !
 
 !RunArray methodsFor:'user interface'!
@@ -803,5 +825,5 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.4 1996-05-11 11:53:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.5 1996-05-11 12:07:28 cg Exp $'
 ! !