Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Win32OperatingSystem.st
changeset 24371 b38f6de3d73d
parent 24124 ad6d160880eb
child 24543 eb3802830398 
--- a/Win32OperatingSystem.st	Wed Jun 26 22:06:20 2019 +0200
+++ b/Win32OperatingSystem.st	Thu Jun 27 11:09:20 2019 +0200
@@ -5712,8 +5712,9 @@
     |attr|
 
     attr := self primGetFileAttributes:aPathName.
-    ^ (attr bitTest:FILE_ATTRIBUTE_HIDDEN) not      "already unset"
-      or:[self primSetFileAttributes:aPathName to:(attr bitClear:FILE_ATTRIBUTE_HIDDEN)].
+    ^ attr notNil 
+      and:[(attr bitTest:FILE_ATTRIBUTE_HIDDEN) not      "already unset"
+           or:[self primSetFileAttributes:aPathName to:(attr bitClear:FILE_ATTRIBUTE_HIDDEN)]].
 
     "Created: / 29-07-2010 / 11:31:55 / sr"
     "Modified: / 12-02-2019 / 12:48:51 / Stefan Vogel"
@@ -5725,8 +5726,13 @@
     |attr|
 
     attr := self primGetFileAttributes:aPathName.
-    ^ (attr bitTest:FILE_ATTRIBUTE_HIDDEN)  "already set"
-      or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_HIDDEN)].
+    ^ attr notNil 
+      and:[(attr bitTest:FILE_ATTRIBUTE_HIDDEN)  "already set"
+           or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_HIDDEN)]].
+
+    "
+        self setHidden:'murks'
+    "
 
     "Modified: / 29-07-2010 / 11:32:26 / sr"
     "Modified: / 12-02-2019 / 12:46:59 / Stefan Vogel"
@@ -5739,8 +5745,9 @@
     |attr|
 
     attr := self primGetFileAttributes:aPathName.
-    ^ (attr bitTest:FILE_ATTRIBUTE_TEMPORARY)  "already set"
-      or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_TEMPORARY)].
+    ^ attr notNil 
+      and:[(attr bitTest:FILE_ATTRIBUTE_TEMPORARY)  "already set"
+           or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_TEMPORARY)]].
 
     "Modified: / 12-02-2019 / 12:49:29 / Stefan Vogel"
 ! !
hg/stx-libbasic