Use #isWritableDirectory
authorStefan Vogel <sv@exept.de>
Mon, 29 Jul 2013 16:08:33 +0200
changeset 13240 37c7f875dae2
parent 13239 946657bb28e3
child 13241 429439b91d57
Use #isWritableDirectory
BookmarkList.st
--- a/BookmarkList.st	Mon Jul 29 16:08:30 2013 +0200
+++ b/BookmarkList.st	Mon Jul 29 16:08:33 2013 +0200
@@ -350,13 +350,11 @@
 !BookmarkList methodsFor:'loading / saving'!
 
 save
-
-    | f |
+    |f|
 
-    (fileName notNil and:
-        [(f := fileName asFilename) exists not or:
-            [f isWritable]]) 
-                ifTrue:[self saveOn: fileName].
+    (fileName notNil 
+        and:[ (f := fileName asFilename) exists not or:[ f isWritable ] ]) 
+            ifTrue:[ self saveOn:fileName ].
 
     "Created: / 23-05-2011 / 16:38:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -383,9 +381,10 @@
 !BookmarkList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.5 2012-10-21 00:15:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $'
 ! !
+