equal
deleted
inserted
replaced
1064 |
1064 |
1065 containsText ifTrue:[ |
1065 containsText ifTrue:[ |
1066 char := aChar asLowercase. |
1066 char := aChar asLowercase. |
1067 |
1067 |
1068 start to:stop do:[:eachNr| |row lbl| |
1068 start to:stop do:[:eachNr| |row lbl| |
1069 row := dataSet at:eachNr. |
1069 (dataSet isRowSelectable:eachNr) ifTrue:[ |
1070 lbl := self shownValueForRow:row rowNr:eachNr. |
1070 row := dataSet at:eachNr. |
1071 |
1071 lbl := self shownValueForRow:row rowNr:eachNr. |
1072 (lbl isSequenceable and:[lbl isString not]) ifTrue:[ |
1072 |
1073 lbl := lbl at:1 ifAbsent:nil |
1073 (lbl isSequenceable and:[lbl isString not]) ifTrue:[ |
|
1074 lbl := lbl at:1 ifAbsent:nil |
|
1075 ]. |
|
1076 |
|
1077 (lbl respondsTo:#string) ifTrue:[ |
|
1078 lbl := lbl string. |
|
1079 (lbl size ~~ 0 and:[(lbl at:1) asLowercase == char]) ifTrue:[ |
|
1080 ^ eachNr |
|
1081 ] |
|
1082 ] ifFalse:[ |
|
1083 lbl isNil ifFalse:[ |
|
1084 ^ 0 |
|
1085 ]. |
|
1086 ]. |
1074 ]. |
1087 ]. |
1075 |
|
1076 (lbl respondsTo:#string) ifTrue:[ |
|
1077 lbl := lbl string. |
|
1078 (lbl size ~~ 0 and:[(lbl at:1) asLowercase == char]) ifTrue:[ |
|
1079 ^ eachNr |
|
1080 ] |
|
1081 ] ifFalse:[ |
|
1082 lbl isNil ifFalse:[ |
|
1083 ^ 0 |
|
1084 ] |
|
1085 ] |
|
1086 ] |
1088 ] |
1087 ]. |
1089 ]. |
1088 ^ 0 |
1090 ^ 0 |
1089 ! ! |
1091 ! ! |
1090 |
1092 |
1091 !DataSetColumn class methodsFor:'documentation'! |
1093 !DataSetColumn class methodsFor:'documentation'! |
1092 |
1094 |
1093 version |
1095 version |
1094 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.92 2004-02-17 12:09:19 cg Exp $' |
1096 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.93 2004-02-17 13:11:46 ca Exp $' |
1095 ! ! |
1097 ! ! |