--- a/DataSetBuilder.st Mon Jun 23 20:13:50 2008 +0200
+++ b/DataSetBuilder.st Fri Jul 04 10:12:29 2008 +0200
@@ -2330,7 +2330,7 @@
nil
)
)
- (MenuItem
+ (MenuItem
label: 'Alignment'
translateLabel: true
submenu:
@@ -2381,6 +2381,29 @@
)
)
(MenuItem
+ label: 'Colors'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSelection
+ label: 'Set Cell Color Selectors'
+ itemValue: setCellColorSelectors
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Set Selected Cell Color Selectors'
+ itemValue: setSelectedCellColorSelectors
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -2660,9 +2683,9 @@
!
menuEdit
- "redefined to access my menu and not of the UIPainter
- "
- ^ self class menuEdit
+ "redefined to access my menu and not the one of the UIPainter"
+
+ ^ [self class menuEdit]
!
possiblePrintConverterTypes
@@ -3304,6 +3327,46 @@
].
!
+setCellColorSelectors
+ |fgSelector bgSelector|
+
+ fgSelector := Dialog request:'FG-Selector for all selected Columns (accept empty for none):'.
+ fgSelector isNil ifTrue:[^ self].
+
+ bgSelector := Dialog request:'BG-Selector for all selected Columns (accept empty for none):'.
+ bgSelector isNil ifTrue:[^ self].
+
+ self selectedColumnsDo:[:eachColDescr |
+ bgSelector notEmpty ifTrue:[
+ eachColDescr backgroundSelector:bgSelector
+ ].
+ fgSelector notEmpty ifTrue:[
+ eachColDescr foregroundSelector:fgSelector
+ ].
+ ].
+ self updateAfterOperation.
+!
+
+setSelectedCellColorSelectors
+ |fgSelector bgSelector|
+
+ fgSelector := Dialog request:'Selected FG-Selector for all selected Columns (accept empty for none):'.
+ fgSelector isNil ifTrue:[^ self].
+
+ bgSelector := Dialog request:'Selected BG-Selector for all selected Columns (accept empty for none):'.
+ bgSelector isNil ifTrue:[^ self].
+
+ self selectedColumnsDo:[:eachColDescr |
+ bgSelector notEmpty ifTrue:[
+ eachColDescr selectedBackgroundSelector:bgSelector
+ ].
+ fgSelector notEmpty ifTrue:[
+ eachColDescr selectedForegroundSelector:fgSelector
+ ].
+ ].
+ self updateAfterOperation.
+!
+
updateAfterOperation
self updateColumnView.
self updateInputFields.