# HG changeset patch
# User ca
# Date 878110873 -3600
# Node ID 076b7eb71bcfc1bd85250a93e829de46723af981
# Parent  269c117830bacda25f5054d87217843b0c95195d
support of foreground and background colors

diff -r 269c117830ba -r 076b7eb71bcf DataSetBuilder.st
--- a/DataSetBuilder.st	Wed Oct 29 08:33:56 1997 +0100
+++ b/DataSetBuilder.st	Wed Oct 29 08:41:13 1997 +0100
@@ -422,19 +422,45 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'DataSet Misc'
-              #'layout:' #(#LayoutFrame 197 0 172 0 487 0 385 0)
+              #'layout:' #(#LayoutFrame 219 0 193 0 509 0 406 0)
               #'label:' 'DataSet Misc'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 197 172 488 386)
+              #'bounds:' #(#Rectangle 219 193 510 407)
           )
           #'component:' 
            #(#SpecCollection
               #'collection:' 
                #(
+                 #(#LabelSpec
+                    #'name:' 'foregroundLabel'
+                    #'layout:' #(#AlignmentOrigin 100 0 40 0 1 0.5)
+                    #'label:' 'foreground:'
+                    #'adjust:' #right
+                    #'resizeForLabel:' true
+                )
+                 #(#ColorMenuSpec
+                    #'name:' 'colorMenuFG'
+                    #'layout:' #(#LayoutFrame 101 0 25 0 0 1.0 53 0)
+                    #'activeHelpKey:' #foregroundColor
+                    #'model:' #foregroundColor
+                )
+                 #(#LabelSpec
+                    #'name:' 'backgroundLabel'
+                    #'layout:' #(#AlignmentOrigin 100 0 74 0 1 0.5)
+                    #'label:' 'background:'
+                    #'adjust:' #right
+                    #'resizeForLabel:' true
+                )
+                 #(#ColorMenuSpec
+                    #'name:' 'colorMenuBG'
+                    #'layout:' #(#LayoutFrame 101 0 60 0 0 1.0 88 0)
+                    #'activeHelpKey:' #backgroundColor
+                    #'model:' #backgroundColor
+                )
                  #(#CheckBoxSpec
                     #'name:' 'canSelect'
-                    #'layout:' #(#Point 17 21)
+                    #'layout:' #(#Point 17 102)
                     #'activeHelpKey:' #canSelect
                     #'model:' #canSelect
                     #'label:' 'Is Selectable'
@@ -1513,7 +1539,8 @@
         rendererType
         showColSeparator
         showRowSeparator
-
+        backgroundColor
+        foregroundColor
      ) do:[:aKey|
         aspects at:aKey put:(holder := ValueHolder new).
         holder addDependent:self.