--- a/WorkspaceApplication.st	Tue Nov 27 19:00:27 2001 +0100
+++ b/WorkspaceApplication.st	Tue Nov 27 19:02:13 2001 +0100
@@ -625,11 +625,22 @@
 !
 
 menuSaveAs
-    |file ws|
+    |file ws doAppend|
+
+    doAppend := false.
+    Dialog aboutToOpenBoxNotificationSignal handle:[:n |
+        |box|
 
-    file := Dialog requestFileName:'Save file:' default:'file.wsp'. 
+        box := n parameter.
+        box addButton:(Button label:'Append'
+                            action:[doAppend := true. box okPressed]).
+        n proceed.
+    ] do:[
+        file := Dialog requestFileName:'Save file:' default:'file.wsp'. 
+    ].
+
     file size > 0 ifTrue:[
-        (ws := self selectedWorkspacesTextView) saveAs:file.
+        (ws := self selectedWorkspacesTextView) saveAs:file doAppend:doAppend.
         ws modified:false.
     ]
 !
@@ -782,5 +793,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.24 2001-11-24 15:39:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.25 2001-11-27 18:02:13 cg Exp $'
 ! !