DialogBox.st
changeset 5866 ecd5e5b0ef88
parent 5854 5b12827d92f7
child 5876 acde20e88b75
--- 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