*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 05 Apr 2005 16:33:02 +0200
changeset 8824 a6dd7e6cdd61
parent 8823 2dcb60da6bcc
child 8825 04467ce913a4
*** empty log message ***
PCFilename.st
--- 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 $'
 ! !