--- a/DeviceHandle.st	Thu Feb 06 12:50:14 2014 +0100
+++ b/DeviceHandle.st	Thu May 08 10:27:51 2014 +0200
@@ -9,11 +9,10 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Object subclass:#DeviceHandle
-	instanceVariableNames:'device parentId drawableId gcId'
+	instanceVariableNames:'device drawableId gcId'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Support'
@@ -66,10 +65,6 @@
     ^ drawableId
 
     "Modified: 20.3.1997 / 16:34:00 / cg"
-!
-
-parentId
-    ^ parentId
 ! !
 
 !DeviceHandle methodsFor:'finalization'!
@@ -92,19 +87,11 @@
     gcId := aGCId
 
     "Modified: 23.4.1996 / 22:10:26 / cg"
-!
-
-setDevice:aDevice id:aDrawableId gcId:aGCId parentId:parentIdArg
-    "set the handles contents"
-
-    device := aDevice.
-    drawableId := aDrawableId.
-    gcId := aGCId.
-    parentId := parentIdArg.
 ! !
 
 !DeviceHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.14 2005-12-13 19:07:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.16.2.1 2014-05-08 08:27:50 stefan Exp $'
 ! !
+