--- a/DialogBox.st Wed Sep 14 07:10:45 2016 +0200
+++ b/DialogBox.st Mon Sep 19 17:28:34 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -3527,7 +3529,9 @@
ifFail:nil
pattern:nil
fromDirectory:directoryOrNil
- whenBoxCreatedEvaluate:[:box | (dialog := box) appendButtonVisibleHolder value:appendActionOrNil notNil].
+ whenBoxCreatedEvaluate:[:box |
+ (dialog := box) appendButtonVisibleHolder value:appendActionOrNil notNil
+ ].
doAppend := dialog appendWasPressed
] ifFalse:[
@@ -3547,7 +3551,7 @@
(doAppend ifTrue:[appendActionOrNil] ifFalse:[action])
value:fileName
].
- ^ self.
+ ^ fileName.
"
Dialog