# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 861627768 -7200
# Node ID 6545b4c3187273932da7d850aefea513fe4a72dc
# Parent  f5dd1c34ccc36a431fc75edbface4e9401f83889
checkin from browser

diff -r f5dd1c34ccc3 -r 6545b4c31872 Filename.st
--- a/Filename.st	Mon Apr 21 13:56:53 1997 +0200
+++ b/Filename.st	Mon Apr 21 15:02:48 1997 +0200
@@ -1204,7 +1204,11 @@
     self isSymbolicLink ifTrue:[
         ^ 'symbolic link to ' , (self linkInfo path)
     ].
-    self isDirectory ifTrue:[^ 'directory'].
+    self isDirectory ifTrue:[
+        self isReadable ifFalse:[^ 'directory, unreadable'].
+        self isExecutable ifFalse:[^ 'directory, locked'].
+        ^ 'directory'
+    ].
     self isReadable ifFalse:[^ 'unreadable'].
     self fileSize == 0 ifTrue:[^ 'empty'].
 
@@ -1288,7 +1292,7 @@
      'bitmaps/SBrowser.xbm' asFilename fileType    
     "
 
-    "Modified: 18.4.1997 / 19:14:16 / cg"
+    "Modified: 21.4.1997 / 14:57:51 / cg"
 !
 
 info
@@ -2211,5 +2215,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.84 1997-04-18 17:44:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.85 1997-04-21 13:02:48 cg Exp $'
 ! !