# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1295746981 -3600
# Node ID c2c115a7e257baf6a169dfb512f453408952e856
# Parent  a4f3846a0fc186a9ada3e5c403d6815693a5975b
added:
        #color
        #color:
        #fillRectangleX:y:width:height:in:

diff -r a4f3846a0fc1 -r c2c115a7e257 SolidBackground.st
--- 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 $'
 ! !