--- 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.