--- a/DisplaySurface.st	Mon Mar 04 10:25:20 2002 +0100
+++ b/DisplaySurface.st	Mon Mar 04 15:26:40 2002 +0100
@@ -1939,6 +1939,19 @@
     "Modified: 22.3.1997 / 14:56:34 / cg"
 !
 
+executor
+    "redefined for faster creation of finalization copies
+     (only device, gcId and drawableId are needed)"
+
+    |aCopy|
+
+    aCopy := DeviceViewHandle basicNew.
+    aCopy setDevice:device id:drawableId gcId:gcId.
+    ^ aCopy
+
+    "Created: 3.5.1996 / 15:35:13 / stefan"
+!
+
 initCursor
     "default cursor for all views"
 
@@ -1998,19 +2011,6 @@
     self setDevice:nil id:nil gcId:nil.
 !
 
-shallowCopyForFinalization
-    "redefined for faster creation of finalization copies
-     (only device, gcId and drawableId are needed)"
-
-    |aCopy|
-
-    aCopy := DeviceViewHandle basicNew.
-    aCopy setDevice:device id:drawableId gcId:gcId.
-    ^ aCopy
-
-    "Created: 3.5.1996 / 15:35:13 / stefan"
-!
-
 unregisterFromLobby
     Lobby unregister:self.
 ! !
@@ -2272,11 +2272,11 @@
 
 !DisplaySurface::DeviceViewHandle methodsFor:'finalization'!
 
-disposed
+finalize
     "the view for which I am a handle was collected 
      - release system resources"
 
-    |v id|
+    |id|
 
     drawableId notNil ifTrue:[
         [
@@ -2322,6 +2322,6 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.88 2002-02-26 13:04:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.89 2002-03-04 14:24:23 stefan Exp $'
 ! !
 DisplaySurface initialize!