--- a/Form.st	Mon Sep 06 19:56:20 2004 +0200
+++ b/Form.st	Mon Sep 06 19:58:56 2004 +0200
@@ -1762,6 +1762,14 @@
 "/    Lobby registerChange:self
 
     "Modified: 15.6.1996 / 16:18:12 / cg"
+!
+
+releaseFromDevice
+    "flush device data.
+     The sender has to take care that the Form has been
+     unregistered from (Finalization-)Lobby"
+
+    device := drawableId := gcId := nil.
 ! !
 
 !Form methodsFor:'inspecting'!
@@ -1888,6 +1896,8 @@
      Read the comment in #readFromFile: on what happenes if the file is no longer present
      after an image reload."
 
+    <resource:#obsolete>
+
     |dpiH mag dev|
 
     (self readFromFile:filename) isNil ifTrue:[^ nil].
@@ -1911,18 +1921,6 @@
     "Modified: 7.2.1996 / 16:03:45 / cg"
 !
 
-release
-    "flush device data"
-
-    device := nil.
-    drawableId := nil.
-    gcId := nil.
-    super release.
-
-    "Created: 16.9.1996 / 21:08:50 / cg"
-    "Modified: 11.6.1997 / 13:19:05 / cg"
-!
-
 restored
     "flush device data, when restored (sent after a binaryLoad)"
 
@@ -2239,7 +2237,7 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.130 2004-07-16 11:38:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.131 2004-09-06 17:58:56 stefan Exp $'
 ! !
 
 Form initialize!