class: FileApplicationNoteBook
warn dialog, if a file cannot be created.
--- 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 $'
! !