--- a/Workspace.st	Wed Jan 10 14:42:18 2001 +0100
+++ b/Workspace.st	Thu Jan 11 12:17:38 2001 +0100
@@ -334,11 +334,15 @@
                       request:aString
                       label:'Warning'
                       form:(WarningBox iconBitmap)
-                      buttonLabels:#('cancel' 'correct...' 'continue')
-                      values:#(#abort #correct #continue)
+                      buttonLabels:#('cancel' 'correct...' 'generate' 'continue')
+                      values:#(#abort #correct #generate #continue)
                       default:#continue.
     ].
 
+    action == #generate ifTrue:[
+        ^ action
+    ].
+
     action == #abort ifTrue:[
         Object abortSignal raise.
         ^ false
@@ -995,5 +999,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.81 2000-12-06 14:28:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.82 2001-01-11 11:17:38 cg Exp $'
 ! !