--- a/FileSaveBox.st	Tue Aug 30 00:54:47 1994 +0200
+++ b/FileSaveBox.st	Mon Oct 10 04:03:47 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
 "
 
 FileSelectionBox subclass:#FileSaveBox
-         instanceVariableNames:'appendAction'
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Views-DialogBoxes'
+	 instanceVariableNames:'appendAction'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-DialogBoxes'
 !
 
 FileSaveBox comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.1 1994-08-07 13:21:37 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.2 1994-10-10 03:01:26 claus Exp $
 '!
 
 !FileSaveBox class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.1 1994-08-07 13:21:37 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.2 1994-10-10 03:01:26 claus Exp $
 "
 !
 
@@ -52,7 +52,7 @@
     behavior is that of a FileSelectionBox.
 
     Instance variables:
-        appendAction            action to be performed when append is pressed
+	appendAction            action to be performed when append is pressed
 "
 ! !
 
@@ -60,9 +60,9 @@
 
 appendPressed
     self hideAndEvaluate:[:string |
-        appendAction notNil ifTrue:[
-            appendAction value:string 
-        ]
+	appendAction notNil ifTrue:[
+	    appendAction value:string 
+	]
     ]
 ! !
 
@@ -73,7 +73,14 @@
 
     super initialize.
 
-    b := Button label:(resources string:'append').
+    okButton label:(resources string:'save').
+
+    "
+     insert an append-button between abort- and save-buttons
+    "
+    b := Button okButtonIn:nil.
+    b isReturnButton:false.
+    b label:(resources string:'append').
     b action:[b turnOffWithoutRedraw. self appendPressed].
     buttonPanel addSubView:b after:abortButton
 ! !
@@ -81,5 +88,7 @@
 !FileSaveBox methodsFor:'accessing'!
 
 appendAction:aBlock
+    "set the action to be performed when append is pressed"
+
     appendAction := aBlock
 ! !