--- a/PCFilename.st Tue Apr 05 14:12:21 2005 +0200
+++ b/PCFilename.st Tue Apr 05 16:33:02 2005 +0200
@@ -434,12 +434,11 @@
!
isDirectory
- "return true, if I represent a root directory
- (i.e. I have no parentDir).
+ "return true, if I represent a directory
Redefined to care for volumeRoots."
self isRootDirectory ifTrue:[^ true].
- ^super isDirectory.
+ ^ super isDirectory.
"Created: / 24.9.1998 / 14:04:31 / cg"
!
@@ -545,7 +544,8 @@
].
]
].
- ^ super isRootDirectory
+ ^ false
+ "/ ^ super isRootDirectory
"Created: / 21.9.1998 / 15:37:41 / cg"
"Modified: / 24.9.1998 / 15:57:10 / cg"
@@ -753,5 +753,5 @@
!PCFilename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.29 2005-03-14 21:55:46 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.30 2005-04-05 14:33:02 cg Exp $'
! !