--- a/DeviceGraphicsContext.st	Fri Feb 06 03:51:40 1998 +0100
+++ b/DeviceGraphicsContext.st	Fri Feb 06 12:45:25 1998 +0100
@@ -3702,6 +3702,14 @@
 
     "Created: 16.5.1996 / 15:35:51 / cg"
     "Modified: 6.6.1997 / 12:55:38 / cg"
+!
+
+setId:aDrawbleId
+    "private"
+
+    drawableId := aDrawbleId
+
+    "Created: / 6.2.1998 / 12:44:45 / cg"
 ! !
 
 !DeviceGraphicsContext methodsFor:'queries'!
@@ -3765,6 +3773,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.55 1998-01-29 12:12:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.56 1998-02-06 11:45:25 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!