equal
deleted
inserted
replaced
2987 argument:(self seqList) |
2987 argument:(self seqList) |
2988 ! |
2988 ! |
2989 |
2989 |
2990 hasSelection |
2990 hasSelection |
2991 ^ (selectedColumnIndex isCollection not and:[ selectedColumnIndex ~~ 0 ]) |
2991 ^ (selectedColumnIndex isCollection not and:[ selectedColumnIndex ~~ 0 ]) |
2992 or:[ selectedColumnIndex size > 0 ] |
2992 or:[ selectedColumnIndex notEmptyOrNil ] |
|
2993 |
|
2994 "Modified: / 17-02-2017 / 08:35:26 / cg" |
2993 ! |
2995 ! |
2994 |
2996 |
2995 isColumnSelected |
2997 isColumnSelected |
2996 "returns a boolean value holder which is set to true if some col is selected" |
2998 "returns a boolean value holder which is set to true if some col is selected" |
2997 |
2999 |
4179 aColumn rendererType == #rowSelector ifTrue:[ |
4181 aColumn rendererType == #rowSelector ifTrue:[ |
4180 ^ 'Row Selector' |
4182 ^ 'Row Selector' |
4181 ]. |
4183 ]. |
4182 label := aColumn label. |
4184 label := aColumn label. |
4183 label isNil ifTrue:[^ nil]. |
4185 label isNil ifTrue:[^ nil]. |
4184 |
|
4185 label isString ifTrue:[^ label]. |
4186 label isString ifTrue:[^ label]. |
4186 |
4187 |
4187 label size > 0 ifTrue:[ |
4188 "/ is a collection of things? |
|
4189 label notEmpty ifTrue:[ |
4188 label := label at:1. |
4190 label := label at:1. |
4189 ]. |
4191 ]. |
4190 ^ label printString |
4192 ^ label printString |
|
4193 |
|
4194 "Modified (comment): / 17-02-2017 / 08:36:27 / cg" |
4191 ! |
4195 ! |
4192 |
4196 |
4193 labelInPreviewPressed:anIndex |
4197 labelInPreviewPressed:anIndex |
4194 (self componentAt:#labelAndColumns) selection:anIndex |
4198 (self componentAt:#labelAndColumns) selection:anIndex |
4195 ! |
4199 ! |