--- a/GraphicsMedium.st	Thu Jan 29 12:56:15 1998 +0100
+++ b/GraphicsMedium.st	Thu Jan 29 12:57:12 1998 +0100
@@ -165,6 +165,12 @@
     ^ (self left + width - 1) @ (self top)
 !
 
+viewBackground
+    "for protocol compatibility with view; return my background paint color here"
+
+    ^ bgPaint
+!
+
 width
     "return the width of the receiver"
 
@@ -291,5 +297,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.7 1996-05-28 18:15:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.8 1998-01-29 11:57:12 ca Exp $'
 ! !