--- a/Filename.st Mon Aug 03 21:24:30 1998 +0200
+++ b/Filename.st Mon Aug 03 21:37:10 1998 +0200
@@ -2247,7 +2247,7 @@
This excludes any entries for '.' or '..'."
|s contents|
- s := DirectoryStream directoryNamed:(self osNameForDirectory).
+ s := DirectoryStream directoryNamed:(self osNameForDirectoryContents).
s isNil ifTrue:[^nil].
contents := s contents.
@@ -2263,7 +2263,7 @@
"
"Modified: / 18.9.1997 / 18:42:23 / stefan"
- "Modified: / 3.8.1998 / 16:47:29 / cg"
+ "Modified: / 3.8.1998 / 21:36:21 / cg"
!
fullDirectoryContents
@@ -2802,6 +2802,15 @@
^ nameString
!
+osNameForDirectoryContents
+ "special - return the OS's name for the receiver to
+ access it as a directory when reading its contents."
+
+ ^ self osNameForDirectory
+
+ "Created: / 3.8.1998 / 21:36:06 / cg"
+!
+
osNameForFile
"internal - return the OS's name for the receiver to
access it as a file."
@@ -2938,6 +2947,6 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.126 1998-08-03 19:24:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.127 1998-08-03 19:37:10 cg Exp $'
! !
Filename initialize!