--- a/Win32OperatingSystem.st	Wed Jul 28 19:20:51 2010 +0200
+++ b/Win32OperatingSystem.st	Thu Jul 29 11:44:46 2010 +0200
@@ -4569,6 +4569,20 @@
     ^ false
 !
 
+clearHidden:aPathName
+    "set the hidden attribute; Return true if the operation succeeded"
+
+    |attr|
+
+    attr := self primGetFileAttributes:aPathName.
+    (attr bitTest:FILE_ATTRIBUTE_HIDDEN ) ifTrue:[
+        ^ self primSetFileAttributes:aPathName to:(attr bitClear:2).
+    ].
+    ^ true
+
+    "Created: / 29-07-2010 / 11:31:55 / sr"
+!
+
 compressPath:pathName
     "return the pathName compressed - that is, remove all ..-entries
      and . entries. This does not always (in case of symbolic links)
@@ -5866,15 +5880,17 @@
 !
 
 setHidden:aPathName
-    "set the hidden attribute. Return true if it is set"
+    "set the hidden attribute. Return true if the operation succeeded"
 
     |attr|
 
     attr := self primGetFileAttributes:aPathName.
     (attr bitTest:FILE_ATTRIBUTE_HIDDEN ) ifFalse:[
-	^ self primSetFileAttributes:aPathName to:(attr bitOr:2).
+        ^ self primSetFileAttributes:aPathName to:(attr bitOr:2).
     ].
     ^ true  "/ aready set
+
+    "Modified: / 29-07-2010 / 11:32:26 / sr"
 !
 
 setNormal:aPathName
@@ -16192,11 +16208,11 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.405 2010-07-23 15:10:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.406 2010-07-29 09:44:46 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.405 2010-07-23 15:10:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.406 2010-07-29 09:44:46 sr Exp $'
 ! !
 
 Win32OperatingSystem initialize!