--- a/SolidBackground.st	Sun Jan 23 02:42:51 2011 +0100
+++ b/SolidBackground.st	Sun Jan 23 02:43:01 2011 +0100
@@ -34,8 +34,27 @@
 "
 ! !
 
+!SolidBackground methodsFor:'accessing'!
+
+color
+    ^ color
+!
+
+color:something
+    color := something.
+! !
+
+!SolidBackground methodsFor:'drawing'!
+
+fillRectangleX:x y:y width:w height:h in:aView
+    aView paint:color.
+    aView fillRectangleX:x y:y width:w height:h
+
+    "Created: / 23-01-2011 / 01:59:29 / cg"
+! !
+
 !SolidBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SolidBackground.st,v 1.2 2009-11-04 14:32:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SolidBackground.st,v 1.3 2011-01-23 01:43:01 cg Exp $'
 ! !