equal
deleted
inserted
replaced
2277 columns notEmpty |
2277 columns notEmpty |
2278 ifTrue: |
2278 ifTrue: |
2279 [ |
2279 [ |
2280 previewColumns do: |
2280 previewColumns do: |
2281 [:column| |
2281 [:column| |
2282 column readSelector: #at:. |
2282 column readSelector: #at:; |
2283 column writeSelector: #at:put:. |
2283 writeSelector: #at:put:; |
2284 column backgroundSelector:nil. |
2284 backgroundSelector:nil; |
2285 column foregroundSelector:nil. |
2285 foregroundSelector:nil; |
2286 column selectSelector: nil. |
2286 selectSelector: nil; |
2287 column doubleClickedSelector: nil. |
2287 doubleClickedSelector: nil; |
2288 column printSelector: nil. |
2288 printSelector: nil; |
2289 column menu: nil |
2289 menu: nil; |
|
2290 choices: nil |
2290 ]. |
2291 ]. |
2291 #('1' '2' '...' 'x') do: |
2292 #('1' '2' '...' 'x') do: |
2292 [:suffix| |
2293 [:suffix| |
2293 columnItems := Array new: previewColumns size. |
2294 columnItems := Array new: previewColumns size. |
2294 1 to: previewColumns size do: [:i| columnItems at: i put: (previewColumns at: i) label ? 'Cell', suffix]. |
2295 1 to: previewColumns size do: [:i| columnItems at: i put: (previewColumns at: i) label ? 'Cell', suffix]. |