--- a/Form.st	Wed Aug 18 21:13:05 1999 +0200
+++ b/Form.st	Wed Aug 18 21:14:49 1999 +0200
@@ -1111,6 +1111,13 @@
 
 !Form methodsFor:'copying'!
 
+executor
+    "redefined for faster creation of finalization copies
+     (only device, gcId and drawableId are needed)"
+
+    ^ DeviceFormHandle basicNew setDevice:device id:drawableId gcId:gcId.
+!
+
 postCopy
     "redefined to copy the colorMap as well"
 
@@ -1119,17 +1126,6 @@
     data := data copy
 
     "Modified: 23.4.1996 / 10:14:46 / cg"
-!
-
-shallowCopyForFinalization
-    "redefined for faster creation of finalization copies
-     (only device, gcId and drawableId are needed)"
-
-    |aCopy|
-
-    aCopy := DeviceFormHandle basicNew.
-    aCopy setDevice:device id:drawableId gcId:gcId.
-    ^ aCopy
 ! !
 
 !Form methodsFor:'editing'!
@@ -1870,6 +1866,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.95 1999-08-18 14:26:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.96 1999-08-18 19:14:49 cg Exp $'
 ! !
 Form initialize!