--- a/DeviceHandle.st	Mon Jul 12 16:04:52 2004 +0200
+++ b/DeviceHandle.st	Mon Jul 12 16:05:14 2004 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libview' }"
 
 Object subclass:#DeviceHandle
-	instanceVariableNames:'device drawableId gcId'
+	instanceVariableNames:'device parentId drawableId gcId'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Support'
@@ -84,10 +84,19 @@
     gcId := aGCId
 
     "Modified: 23.4.1996 / 22:10:26 / cg"
+!
+
+setDevice:aDevice id:aDrawableId gcId:aGCId parentId:parentsDrawableId
+    "set the handles contents"
+
+    device := aDevice.
+    drawableId := aDrawableId.
+    parentId := parentsDrawableId.
+    gcId := aGCId
 ! !
 
 !DeviceHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.11 2003-05-07 14:10:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.12 2004-07-12 14:05:14 cg Exp $'
 ! !