equal
deleted
inserted
replaced
706 !DataSetColumn methodsFor:'initialization'! |
706 !DataSetColumn methodsFor:'initialization'! |
707 |
707 |
708 on:aDSVColumnView description:aDescription columnNumber:aNumber label:aLabel |
708 on:aDSVColumnView description:aDescription columnNumber:aNumber label:aLabel |
709 "instance creation; set attributes dependent on the description |
709 "instance creation; set attributes dependent on the description |
710 " |
710 " |
711 |device selector format idx type args| |
711 |device selector format idx type| |
712 |
712 |
713 numberOfRowsProbedForColumnSize := 15. |
713 numberOfRowsProbedForColumnSize := 15. |
714 |
714 |
715 columnNumber := aNumber. |
715 columnNumber := aNumber. |
716 dataSet := aDSVColumnView. |
716 dataSet := aDSVColumnView. |
769 foregroundColor := foregroundColor onDevice:dataSet device |
769 foregroundColor := foregroundColor onDevice:dataSet device |
770 ]. |
770 ]. |
771 |
771 |
772 rendererType == #CheckToggle ifTrue:[ |
772 rendererType == #CheckToggle ifTrue:[ |
773 buttonExtent := dataSet checkToggleExtent. |
773 buttonExtent := dataSet checkToggleExtent. |
774 ^ self |
774 ^ self |
775 ]. |
775 ]. |
776 |
776 |
777 rendererType == #rowSelector ifTrue:[ |
777 rendererType == #rowSelector ifTrue:[ |
778 buttonExtent := dataSet rowSelectorExtent. |
778 buttonExtent := dataSet rowSelectorExtent. |
779 ^ self |
779 ^ self |
780 ]. |
780 ]. |
781 |
781 |
782 (rendererType == #ComboBox or:[rendererType == #ComboList]) ifTrue:[ |
782 (rendererType == #ComboBox or:[rendererType == #ComboList]) ifTrue:[ |
783 buttonExtent := dataSet comboButtonExtent. |
783 buttonExtent := dataSet comboButtonExtent. |
784 ] ifFalse:[ |
784 ] ifFalse:[ |
786 ]. |
786 ]. |
787 |
787 |
788 selector := description printSelector. |
788 selector := description printSelector. |
789 |
789 |
790 selector notNil ifTrue:[ |
790 selector notNil ifTrue:[ |
791 args := selector numArgs. |
791 shownValue := [:aRow | aRow perform:selector withOptionalArgument:dataSet and:columnNumber ]. |
792 args == 0 ifTrue:[ |
|
793 shownValue := [:aRow| aRow perform:selector ] |
|
794 ] ifFalse:[ |
|
795 args == 1 ifTrue:[ |
|
796 shownValue := [:aRow| aRow perform:selector with:dataSet ] |
|
797 ] ifFalse:[ |
|
798 shownValue := [:aRow| aRow perform:selector with:dataSet with:columnNumber ] |
|
799 ] |
|
800 ]. |
|
801 ^ self |
792 ^ self |
802 ]. |
793 ]. |
803 |
794 |
804 ( (format := description formatString) notNil |
795 ( (format := description formatString) notNil |
805 and:[(type := description type) == #number or:[type == #numberOrNil]] |
796 and:[(type := description type) == #number or:[type == #numberOrNil]] |
874 ]. |
865 ]. |
875 ^ false |
866 ^ false |
876 ! |
867 ! |
877 |
868 |
878 canSelect:aRowNr |
869 canSelect:aRowNr |
879 "returns true if cell in column is selectable |
870 "returns true if the cell in column is selectable |
880 " |
871 " |
881 |s| |
872 |s row| |
882 |
873 |
883 description canSelect ifTrue:[ |
874 description canSelect ifFalse:[^ false]. |
884 (s := description selectSelector) notNil ifTrue:[ |
875 s := description selectSelector. |
885 columnAdaptor notNil ifTrue:[ |
876 s isNil ifTrue:[^ true]. |
886 s numArgs == 2 ifTrue:[ |
877 |
887 ^ columnAdaptor perform:s with:(dataSet at:aRowNr) with:columnNumber |
878 row := dataSet at:aRowNr. |
888 ]. |
879 columnAdaptor notNil ifTrue:[ |
889 ^ columnAdaptor perform:s with:(dataSet at:aRowNr) |
880 ^ columnAdaptor perform:s withOptionalArgument:row and:columnNumber |
890 ]. |
881 ]. |
891 s numArgs == 1 ifTrue:[ |
882 |
892 ^ (dataSet at:aRowNr) perform:s with:columnNumber |
883 ^ row perform:s withOptionalArgument:columnNumber |
893 ]. |
|
894 ^ (dataSet at:aRowNr) perform:s |
|
895 ]. |
|
896 ^ true |
|
897 ]. |
|
898 ^ false |
|
899 |
|
900 "Modified: / 7.8.1998 / 22:49:20 / cg" |
|
901 ! |
884 ! |
902 |
885 |
903 containsText |
886 containsText |
904 "returns true if text might exist |
887 "returns true if text might exist |
905 " |
888 " |
1050 ! ! |
1033 ! ! |
1051 |
1034 |
1052 !DataSetColumn class methodsFor:'documentation'! |
1035 !DataSetColumn class methodsFor:'documentation'! |
1053 |
1036 |
1054 version |
1037 version |
1055 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.70 2001-10-09 17:44:27 cg Exp $' |
1038 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.71 2001-12-14 10:49:04 cg Exp $' |
1056 ! ! |
1039 ! ! |