Merge jv
authorMerge Script
Tue, 20 Sep 2016 07:03:00 +0200
branchjv
changeset 5868 68d002270adf
parent 5867 ae5f44ecba6e (current diff)
parent 5866 ecd5e5b0ef88 (diff)
child 5881 ed8d6a1ebf38
Merge
--- a/DialogBox.st	Mon Sep 19 11:02:14 2016 +0100
+++ b/DialogBox.st	Tue Sep 20 07:03:00 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