equal
deleted
inserted
replaced
797 setColumnDescriptors:aColumnDescriptionList |
797 setColumnDescriptors:aColumnDescriptionList |
798 "set the columnDescriptors; dont deselect and do not scroll to top" |
798 "set the columnDescriptors; dont deselect and do not scroll to top" |
799 |cid| |
799 |cid| |
800 |
800 |
801 cid := 0. |
801 cid := 0. |
802 columnDescriptors := aColumnDescriptionList ? #(). |
802 |
803 |
803 aColumnDescriptionList isEmptyOrNil ifTrue:[ |
804 columnDescriptors := columnDescriptors |
804 columnDescriptors := OrderedCollection new. |
805 collect: |
805 ] ifFalse:[ |
806 [:el||dsc lbl| |
806 columnDescriptors := aColumnDescriptionList |
807 dsc := el isSequenceable |
807 collect: |
808 ifTrue:[DataSetColumnSpec decodeFromLiteralArray:el] |
808 [:el||dsc lbl| |
809 ifFalse:[el]. |
809 dsc := el isSequenceable |
810 cid := cid + 1. |
810 ifTrue:[DataSetColumnSpec decodeFromLiteralArray:el] |
811 lbl := DataSetLabel new description:dsc builder:builder on:labelView. |
811 ifFalse:[el]. |
812 DataSetColumn new on:self description:dsc columnNumber:cid label:lbl |
812 cid := cid + 1. |
813 ]. |
813 lbl := DataSetLabel new description:dsc builder:builder on:labelView. |
|
814 DataSetColumn new on:self description:dsc columnNumber:cid label:lbl |
|
815 ]. |
|
816 ]. |
814 |
817 |
815 cachedPreferredExtent := nil. |
818 cachedPreferredExtent := nil. |
816 labelView columns:columnDescriptors. |
819 labelView columns:columnDescriptors. |
817 |
820 |
818 shown ifTrue:[ |
821 shown ifTrue:[ |
4547 ! ! |
4550 ! ! |
4548 |
4551 |
4549 !DSVColumnView class methodsFor:'documentation'! |
4552 !DSVColumnView class methodsFor:'documentation'! |
4550 |
4553 |
4551 version |
4554 version |
4552 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.242 2008-08-05 06:23:26 stefan Exp $' |
4555 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.243 2008-09-19 08:32:11 ca Exp $' |
4553 ! ! |
4556 ! ! |