--- a/PCFilename.st Mon Jan 14 18:44:32 2019 +0100
+++ b/PCFilename.st Wed Jan 16 11:44:41 2019 +0100
@@ -654,8 +654,13 @@
|baseName|
baseName := self baseName.
- ((baseName startsWith:'.') and:[baseName ~= '..']) ifTrue:[^ true].
+ "sr: no this is totally wrong,
+ in windows files starting with . are not hidden by definition"
+"/ ((baseName startsWith:'.') and:[baseName ~= '..']) ifTrue:[^ true].
+
^ OperatingSystem isHidden:(self osNameForFile)
+
+ "Modified: / 16-01-2019 / 11:43:46 / sr"
!
isRootDirectory