2371 ) |
2371 ) |
2372 (MenuItem |
2372 (MenuItem |
2373 enabled: hasSelection |
2373 enabled: hasSelection |
2374 label: 'Make Cell Right Aligned' |
2374 label: 'Make Cell Right Aligned' |
2375 itemValue: alignColumnsRight |
2375 itemValue: alignColumnsRight |
|
2376 translateLabel: true |
|
2377 ) |
|
2378 ) |
|
2379 nil |
|
2380 nil |
|
2381 ) |
|
2382 ) |
|
2383 (MenuItem |
|
2384 label: 'Colors' |
|
2385 translateLabel: true |
|
2386 submenu: |
|
2387 (Menu |
|
2388 ( |
|
2389 (MenuItem |
|
2390 enabled: hasSelection |
|
2391 label: 'Set Cell Color Selectors' |
|
2392 itemValue: setCellColorSelectors |
|
2393 translateLabel: true |
|
2394 ) |
|
2395 (MenuItem |
|
2396 enabled: hasSelection |
|
2397 label: 'Set Selected Cell Color Selectors' |
|
2398 itemValue: setSelectedCellColorSelectors |
2376 translateLabel: true |
2399 translateLabel: true |
2377 ) |
2400 ) |
2378 ) |
2401 ) |
2379 nil |
2402 nil |
2380 nil |
2403 nil |
2658 |
2681 |
2659 ^builder valueAspectFor:#isColumnSelected initialValue: false |
2682 ^builder valueAspectFor:#isColumnSelected initialValue: false |
2660 ! |
2683 ! |
2661 |
2684 |
2662 menuEdit |
2685 menuEdit |
2663 "redefined to access my menu and not of the UIPainter |
2686 "redefined to access my menu and not the one of the UIPainter" |
2664 " |
2687 |
2665 ^ self class menuEdit |
2688 ^ [self class menuEdit] |
2666 ! |
2689 ! |
2667 |
2690 |
2668 possiblePrintConverterTypes |
2691 possiblePrintConverterTypes |
2669 ^ UISpecification possiblePrintConverterTypes |
2692 ^ UISpecification possiblePrintConverterTypes |
2670 ! |
2693 ! |
3300 selectedColumnIndex notNil ifTrue:[ |
3323 selectedColumnIndex notNil ifTrue:[ |
3301 aBlock value:(columns at:selectedColumnIndex) |
3324 aBlock value:(columns at:selectedColumnIndex) |
3302 ] |
3325 ] |
3303 ]. |
3326 ]. |
3304 ]. |
3327 ]. |
|
3328 ! |
|
3329 |
|
3330 setCellColorSelectors |
|
3331 |fgSelector bgSelector| |
|
3332 |
|
3333 fgSelector := Dialog request:'FG-Selector for all selected Columns (accept empty for none):'. |
|
3334 fgSelector isNil ifTrue:[^ self]. |
|
3335 |
|
3336 bgSelector := Dialog request:'BG-Selector for all selected Columns (accept empty for none):'. |
|
3337 bgSelector isNil ifTrue:[^ self]. |
|
3338 |
|
3339 self selectedColumnsDo:[:eachColDescr | |
|
3340 bgSelector notEmpty ifTrue:[ |
|
3341 eachColDescr backgroundSelector:bgSelector |
|
3342 ]. |
|
3343 fgSelector notEmpty ifTrue:[ |
|
3344 eachColDescr foregroundSelector:fgSelector |
|
3345 ]. |
|
3346 ]. |
|
3347 self updateAfterOperation. |
|
3348 ! |
|
3349 |
|
3350 setSelectedCellColorSelectors |
|
3351 |fgSelector bgSelector| |
|
3352 |
|
3353 fgSelector := Dialog request:'Selected FG-Selector for all selected Columns (accept empty for none):'. |
|
3354 fgSelector isNil ifTrue:[^ self]. |
|
3355 |
|
3356 bgSelector := Dialog request:'Selected BG-Selector for all selected Columns (accept empty for none):'. |
|
3357 bgSelector isNil ifTrue:[^ self]. |
|
3358 |
|
3359 self selectedColumnsDo:[:eachColDescr | |
|
3360 bgSelector notEmpty ifTrue:[ |
|
3361 eachColDescr selectedBackgroundSelector:bgSelector |
|
3362 ]. |
|
3363 fgSelector notEmpty ifTrue:[ |
|
3364 eachColDescr selectedForegroundSelector:fgSelector |
|
3365 ]. |
|
3366 ]. |
|
3367 self updateAfterOperation. |
3305 ! |
3368 ! |
3306 |
3369 |
3307 updateAfterOperation |
3370 updateAfterOperation |
3308 self updateColumnView. |
3371 self updateColumnView. |
3309 self updateInputFields. |
3372 self updateInputFields. |