--- a/Filename.st	Tue Aug 05 16:54:03 1997 +0200
+++ b/Filename.st	Tue Aug 05 20:40:19 1997 +0200
@@ -1313,6 +1313,19 @@
     "Modified: 30.4.1997 / 12:40:43 / cg"
 !
 
+id
+    "return the files/directories file-id (inode number)"
+
+    ^ OperatingSystem idOf:(self pathName)
+
+    "
+     Filename currentDirectory id 
+    "
+
+    "Modified: 9.7.1996 / 10:19:27 / cg"
+    "Created: 5.8.1997 / 19:26:01 / cg"
+!
+
 info
     "return some object filled with the files info;
      the info (for which corresponding access methods are understood by
@@ -1396,6 +1409,19 @@
     "
 
     "Created: 9.7.1996 / 10:18:59 / cg"
+!
+
+type
+    "return the symbolic type of the file"
+
+    ^ OperatingSystem typeOf:(self pathName)
+
+    "
+     Filename currentDirectory type 
+    "
+
+    "Modified: 9.7.1996 / 10:19:27 / cg"
+    "Created: 5.8.1997 / 19:31:26 / cg"
 ! !
 
 !Filename methodsFor:'file utilities'!
@@ -2256,5 +2282,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.91 1997-06-20 15:30:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.92 1997-08-05 18:40:19 cg Exp $'
 ! !