# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1215159149 -7200
# Node ID 233e1bda3570056909786f17e28e786722907f37
# Parent  ce1233002cf87d99494df07161811c061c027522
mass operations: color selected-color

diff -r ce1233002cf8 -r 233e1bda3570 DataSetBuilder.st
--- 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.