AbstractBackground.st
changeset 5683 486548535ec4
parent 5459 7adaeea72491
child 5704 d7c401801223
--- a/AbstractBackground.st	Sun Jan 23 02:43:01 2011 +0100
+++ b/AbstractBackground.st	Sun Jan 23 02:43:13 2011 +0100
@@ -41,10 +41,42 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |v|
+
+    v := View new.
+    v viewBackground:(SolidBackground new color:Color red).
+    v open.
+"
+! !
+
+!AbstractBackground methodsFor:'drawing'!
+
+fillRectangleX:x y:y width:w height:h in:aView
+    self subclassResponsibility
+
+    "Created: / 23-01-2011 / 01:59:29 / cg"
+! !
+
+!AbstractBackground methodsFor:'ignored conversion'!
+
+asFormOn:aDevice
+    ^ nil
+
+    "Created: / 23-01-2011 / 01:45:35 / cg"
+!
+
+onDevice:aDevice
+    ^ nil
+
+    "Created: / 23-01-2011 / 01:46:11 / cg"
 ! !
 
 !AbstractBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/AbstractBackground.st,v 1.2 2009-11-04 14:31:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/AbstractBackground.st,v 1.3 2011-01-23 01:43:13 cg Exp $'
 ! !