--- a/MultiColListEntry.st	Wed Aug 30 01:45:59 1995 +0200
+++ b/MultiColListEntry.st	Wed Aug 30 20:00:39 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.6 1995-06-06 04:17:32 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.7 1995-08-30 18:00:28 claus Exp $
 "
 !
 
@@ -266,6 +266,24 @@
 
 !MultiColListEntry class methodsFor:'instance creation'!
 
+new:numberOfColumns
+    |e|
+
+    e := self new.
+    1 to:numberOfColumns do:[:i |
+	e colAt:i put:''.
+    ].
+    ^ e
+
+    "Modified: 30.8.1995 / 16:33:53 / claus"
+!
+
+new:numberOfColumns tabulatorSpecification:aTabSpec
+    ^ (self new:numberOfColumns) tabulatorSpecification:aTabSpec
+
+    "Modified: 30.8.1995 / 16:34:23 / claus"
+!
+
 fromString:aString
     ^ self fromString:aString separatedBy:Character space
 !