--- 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 $'
! !