--- a/Form.st	Wed Apr 02 20:16:13 1997 +0200
+++ b/Form.st	Wed Apr 02 20:16:52 1997 +0200
@@ -670,19 +670,24 @@
 
 !Form methodsFor:'ST-80 compatibility'!
 
-close
-    drawableId notNil ifTrue:[
-        gcId notNil ifTrue:[
-            device destroyGC:gcId.
-            gcId := nil
-        ].
-        device destroyPixmap:drawableId.
-        drawableId := nil.
+destroy
+    "destroy my underlying device resource(s)"
 
-        Lobby unregister:self.
+    |id|
+
+    (id := gcId) notNil ifTrue:[
+        gcId := nil.
+        device destroyGC:id.
     ].
 
-    "Modified: 1.4.1997 / 23:14:57 / cg"
+    (id := drawableId) notNil ifTrue:[
+        drawableId := nil.
+        device destroyPixmap:id.
+    ].
+
+    Lobby unregister:self.
+
+    "Modified: 2.4.1997 / 19:39:52 / cg"
 !
 
 displayOn:aGC at:aPoint
@@ -1740,6 +1745,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.77 1997-04-01 21:15:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.78 1997-04-02 18:16:52 cg Exp $'
 ! !
 Form initialize!