equal
deleted
inserted
replaced
835 ) |
835 ) |
836 ! ! |
836 ! ! |
837 |
837 |
838 !DataSetBuilder methodsFor:'accessing'! |
838 !DataSetBuilder methodsFor:'accessing'! |
839 |
839 |
840 className |
840 columns |
|
841 "returns list of columns |
|
842 " |
|
843 ^ columns |
|
844 ! |
|
845 |
|
846 columns:aListOfColumns fromView:aColumnView |
|
847 "setup columns from a column view |
|
848 " |
|
849 |list| |
|
850 |
|
851 columnView := aColumnView. |
|
852 columns := OrderedCollection new. |
|
853 list := self seqList. |
|
854 hasChanged := false. |
|
855 |
|
856 list removeAll. |
|
857 |
|
858 aListOfColumns size ~~ 0 ifTrue:[ |
|
859 aListOfColumns do:[:aCol| |
|
860 columns add:(aCol copy). |
|
861 aCol rendererType == #rowSelector ifFalse:[list add:(aCol label)] |
|
862 ifTrue:[list add:'Row Selector']. |
|
863 ] |
|
864 ]. |
|
865 ! |
|
866 |
|
867 rowClassName |
841 ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil] |
868 ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil] |
842 ! |
869 ! |
843 |
870 |
844 className:aClassName |
871 rowClassName:aClassName |
845 |cls| |
872 |cls| |
846 |
873 |
847 superclassName := nil. |
874 superclassName := nil. |
848 |
875 |
849 (className := aClassName) notNil ifTrue:[ |
876 (className := aClassName) notNil ifTrue:[ |
851 superclassName := cls superclass name asString. |
878 superclassName := cls superclass name asString. |
852 ] ifFalse:[ |
879 ] ifFalse:[ |
853 superclassName := 'Object' |
880 superclassName := 'Object' |
854 ] |
881 ] |
855 ] |
882 ] |
856 ! |
883 |
857 |
|
858 columns |
|
859 "returns list of columns |
|
860 " |
|
861 ^ columns |
|
862 ! |
|
863 |
|
864 columns:aListOfColumns fromView:aColumnView |
|
865 "setup columns from a column view |
|
866 " |
|
867 |list| |
|
868 |
|
869 columnView := aColumnView. |
|
870 columns := OrderedCollection new. |
|
871 list := self seqList. |
|
872 hasChanged := false. |
|
873 |
|
874 list removeAll. |
|
875 |
|
876 aListOfColumns size ~~ 0 ifTrue:[ |
|
877 aListOfColumns do:[:aCol| |
|
878 columns add:(aCol copy). |
|
879 aCol rendererType == #rowSelector ifFalse:[list add:(aCol label)] |
|
880 ifTrue:[list add:'Row Selector']. |
|
881 ] |
|
882 ]. |
|
883 ! ! |
884 ! ! |
884 |
885 |
885 !DataSetBuilder methodsFor:'accessing menu'! |
886 !DataSetBuilder methodsFor:'accessing menu'! |
886 |
887 |
887 columnMenu |
888 columnMenu |