--- a/DeviceWorkstation.st	Tue Dec 17 18:53:45 1996 +0100
+++ b/DeviceWorkstation.st	Tue Dec 17 20:41:53 1996 +0100
@@ -1723,6 +1723,12 @@
     ^ self subclassResponsibility
 !
 
+gcForBitmap:aDrawableId
+    "create a GC for drawing into a bitmap drawable"
+
+    ^ self subclassResponsibility
+!
+
 realRootWindowId
     "return the id of the real root window.
      This may or may not be the view you see as background, 
@@ -4815,6 +4821,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.145 1996-12-11 12:35:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.146 1996-12-17 19:40:06 cg Exp $'
 ! !
 DeviceWorkstation initialize!