--- a/DevHandle.st	Tue Apr 23 22:06:00 1996 +0200
+++ b/DevHandle.st	Tue Apr 23 22:12:21 1996 +0200
@@ -10,13 +10,11 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.5 on 25-may-1995 at 7:37:35 am'!
-
 Object subclass:#DeviceHandle
-	 instanceVariableNames:'device drawableId gcId'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Graphics-Support'
+	instanceVariableNames:'device drawableId gcId'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Support'
 !
 
 !DeviceHandle class methodsFor:'documentation'!
@@ -44,17 +42,26 @@
     fonts could also make use of this class - however, for historical reasons,
     they continue to use their own private finalization machanisms. This may
     change in future versions).
+
+    [see also:]
+        DeviceDrawable
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevHandle.st,v 1.4 1995-11-11 15:49:54 cg Exp $'
 ! !
 
 !DeviceHandle methodsFor:'accessing'!
 
 setDevice:aDevice id:aDrawableId gcId:aGCId
-     device := aDevice.
-     drawableId := aDrawableId.
-     gcId := aGCId
+    "set the handles contents"
+
+    device := aDevice.
+    drawableId := aDrawableId.
+    gcId := aGCId
+
+    "Modified: 23.4.1996 / 22:10:26 / cg"
 ! !
+
+!DeviceHandle class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevHandle.st,v 1.5 1996-04-23 20:11:40 cg Exp $'
+! !