--- a/SimpleView.st	Thu Jun 18 09:30:10 1998 +0200
+++ b/SimpleView.st	Thu Jun 18 16:58:17 1998 +0200
@@ -1360,6 +1360,16 @@
     "Modified: 18.7.1996 / 13:34:26 / cg"
 !
 
+backgroundColor
+    "return the background color of the contents -
+     here, (since there is no contents), the viewBackground is returned."
+
+    ^ self viewBackground
+
+    "Modified: / 3.5.1997 / 10:28:04 / cg"
+    "Created: / 18.6.1998 / 15:59:36 / cg"
+!
+
 backgroundColor:aColor
     "set the background color of the contents -
      here, (since there is no contents), the viewBackground is changed."
@@ -1446,6 +1456,16 @@
     "Modified: 5.6.1996 / 14:12:05 / cg"
 !
 
+foregroundColor
+    "return the foreground color of the contents -
+     here, (since there is no contents), some default is returned."
+
+    ^ Color black
+
+    "Modified: / 3.5.1997 / 10:28:04 / cg"
+    "Created: / 18.6.1998 / 16:57:33 / cg"
+!
+
 level
     "return my level relative to superView (3D)"
 
@@ -7780,6 +7800,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.255 1998-06-10 15:29:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.256 1998-06-18 14:58:17 cg Exp $'
 ! !
 SimpleView initialize!