class: FileApplicationNoteBook
authorStefan Vogel <sv@exept.de>
Wed, 12 Dec 2012 15:31:07 +0100
changeset 12079 50a553319d07
parent 12078 f61b6eaa52b7
child 12080 38d87cf1f475
class: FileApplicationNoteBook warn dialog, if a file cannot be created.
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Wed Dec 12 13:19:40 2012 +0100
+++ b/FileApplicationNoteBook.st	Wed Dec 12 15:31:07 2012 +0100
@@ -5250,7 +5250,12 @@
 
     fnDir := fn directory.
     fnDir exists ifFalse:[
-        fnDir recursiveMakeDirectory.
+        [
+            fnDir recursiveMakeDirectory.
+        ] on:OperatingSystem accessDeniedErrorSignal do:[:ex|
+            Dialog warn:(ex description).
+            ^ self.
+        ]
     ].
     (editView saveAs:fn) ifFalse:[^ self].
 
@@ -6721,9 +6726,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.269 2012-11-22 12:42:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.270 2012-12-12 14:31:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.269 2012-11-22 12:42:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.270 2012-12-12 14:31:07 stefan Exp $'
 ! !