--- a/FileSaveBox.st	Thu Nov 23 02:43:52 1995 +0100
+++ b/FileSaveBox.st	Thu Nov 23 03:26:58 1995 +0100
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.6 1995-11-11 16:20:14 cg Exp $'
-!
-
 documentation
 "
     Instances of FileSaveBox add an 'append'-button. The other
@@ -45,37 +41,22 @@
     Instance variables:
 	appendAction            action to be performed when append is pressed
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.7 1995-11-23 02:25:15 cg Exp $'
 ! !
 
-!FileSaveBox methodsFor:'user interaction'!
+!FileSaveBox methodsFor:'accessing'!
 
-appendPressed
-    self hideAndEvaluate:[:string |
-	appendAction notNil ifTrue:[
-	    appendAction value:string 
-	]
-    ]
+appendAction:aBlock
+    "set the action to be performed when append is pressed"
+
+    appendAction := aBlock
 ! !
 
 !FileSaveBox methodsFor:'initialization'!
 
-initialize
-    super initialize.
-
-    label := resources string:'Save file dialog'.
-
-    okButton label:(resources string:'save').
-
-    "
-     insert an append-button between abort- and save-buttons
-    "
-    appendButton := Button okButton.
-    appendButton isReturnButton:false.
-    appendButton label:(resources string:'append').
-    appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
-    buttonPanel addSubView:appendButton after:abortButton
-!
-
 focusSequence
     |a|
 
@@ -94,12 +75,32 @@
 	    with:abortButton 
 	    with:appendButton 
 	    with:okButton 
+!
+
+initialize
+    super initialize.
+
+    label := resources string:'Save file dialog'.
+
+    okButton label:(resources string:'save').
+
+    "
+     insert an append-button between abort- and save-buttons
+    "
+    appendButton := Button okButton.
+    appendButton isReturnButton:false.
+    appendButton label:(resources string:'append').
+    appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
+    buttonPanel addSubView:appendButton after:abortButton
 ! !
 
-!FileSaveBox methodsFor:'accessing'!
+!FileSaveBox methodsFor:'user interaction'!
 
-appendAction:aBlock
-    "set the action to be performed when append is pressed"
+appendPressed
+    self hideAndEvaluate:[:string |
+	appendAction notNil ifTrue:[
+	    appendAction value:string 
+	]
+    ]
+! !
 
-    appendAction := aBlock
-! !