--- a/Form.st	Tue Feb 16 00:20:15 1999 +0100
+++ b/Form.st	Tue Feb 16 15:45:52 1999 +0100
@@ -960,10 +960,18 @@
     ^ depth
 !
 
+fileName
+    "return the filename, from which the receiver was created,
+     or nil, if it was not read from a file"
+
+    ^ fileName
+!
+
 filename
     "return the filename, from which the receiver was created,
      or nil, if it was not read from a file"
 
+    "/ going to be obsoleted - use #fileName
     ^ fileName
 !
 
@@ -1850,6 +1858,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.90 1998-07-27 18:05:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.91 1999-02-16 14:45:52 cg Exp $'
 ! !
 Form initialize!