--- 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 $'
! !