# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1355322667 -3600
# Node ID 50a553319d0760b49230ade44dddfbc42bad5096
# Parent  f61b6eaa52b7eb07b028d4091a6943c4163d727f
class: FileApplicationNoteBook
   warn dialog, if a file cannot be created.

diff -r f61b6eaa52b7 -r 50a553319d07 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 $'
 ! !