--- a/DeviceWorkstation.st	Tue May 04 19:17:10 1999 +0200
+++ b/DeviceWorkstation.st	Tue May 04 19:23:18 1999 +0200
@@ -6141,9 +6141,14 @@
 !
 
 setWindowBackgroundPixmap:aPixmapId in:aWindowId
-    "set a windows background pattern to be a form"
-
-    ^ self subclassResponsibility
+    "set a windows background pattern to be a form.
+     No need to be implemented in concrete workstation;
+     if not implemented, its done by (slower) smalltalk code
+     (must return false from #supportsViewBackgroundPixmap query)"
+
+    ^ self
+
+    "Modified: / 4.5.1999 / 19:06:13 / cg"
 !
 
 setWindowBorderColor:aColorIndex in:aWindowId
@@ -6244,6 +6249,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.288 1999-05-04 17:15:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.289 1999-05-04 17:23:18 cg Exp $'
 ! !
 DeviceWorkstation initialize!