--- 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 $'
! !