DSVColumnView.st
changeset 2835 0bec234e2a41
parent 2834 edddf1a3c2ea
child 2836 5989b6c71e87
--- a/DSVColumnView.st	Wed Jul 20 17:45:55 2005 +0200
+++ b/DSVColumnView.st	Wed Jul 20 19:16:02 2005 +0200
@@ -718,14 +718,16 @@
     cid := 0.
     columnDescriptors := aColumnDescriptionList ? #().
 
-    columnDescriptors := columnDescriptors collect:[:el||dsc lbl|
-        dsc := el isSequenceable 
-                    ifTrue:[DataSetColumnSpec new fromLiteralArrayEncoding:el]
-                    ifFalse:[el].
-        cid := cid + 1.
-        lbl := DataSetLabel new description:dsc builder:builder on:labelView.
-        DataSetColumn new on:self description:dsc columnNumber:cid label:lbl
-    ].
+    columnDescriptors := columnDescriptors 
+        collect:
+            [:el||dsc lbl|
+                dsc := el isSequenceable 
+                            ifTrue:[DataSetColumnSpec new fromLiteralArrayEncoding:el]
+                            ifFalse:[el].
+                cid := cid + 1.
+                lbl := DataSetLabel new description:dsc builder:builder on:labelView.
+                DataSetColumn new on:self description:dsc columnNumber:cid label:lbl
+            ].
 
     preferredExtent := nil.
     labelView columns:columnDescriptors.
@@ -4092,5 +4094,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.204 2005-07-20 15:45:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.205 2005-07-20 17:16:02 cg Exp $'
 ! !