--- a/Workspace.st	Thu Nov 15 23:07:40 2001 +0100
+++ b/Workspace.st	Thu Nov 15 23:08:39 2001 +0100
@@ -335,7 +335,7 @@
                       request:aString
                       label:'Warning'
                       form:(WarningBox iconBitmap)
-                      buttonLabels:(resources array:#('cancel' 'correct...' 'generate' 'continue'))
+                      buttonLabels:(resources array:#('Cancel' 'Correct...' 'Generate' 'Continue'))
                       values:#(#abort #correct #generate #continue)
                       default:#continue
                       onCancel:#abort.
@@ -351,8 +351,8 @@
     ].
     ^ action == #correct
 
-    "Modified: / 19.1.2000 / 16:26:39 / cg"
     "Created: / 19.1.2000 / 16:27:28 / cg"
+    "Modified: / 15.11.2001 / 23:04:59 / cg"
 !
 
 error:aString position:relPos to:relEndPos asWarning:asWarning
@@ -387,8 +387,8 @@
         "
         box := YesNoBox 
                 title:aString
-                yesText:(resources string:'continue')
-                noText:(resources string:'abort').
+                yesText:(resources string:'Continue')
+                noText:(resources string:'Abort').
 
         lbl := aCompiler isNil ifTrue:['Compiler'] ifFalse:[aCompiler class name].
         asWarning ifTrue:[
@@ -410,8 +410,8 @@
     ].
     ^ false
 
-    "Created: 24.11.1995 / 22:56:34 / cg"
-    "Modified: 7.1.1997 / 23:00:45 / cg"
+    "Created: / 24.11.1995 / 22:56:34 / cg"
+    "Modified: / 15.11.2001 / 23:04:42 / cg"
 !
 
 highlightingErrorPosition:relPos to:relEndPos do:aBlock
@@ -1030,5 +1030,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.100 2001-11-15 22:07:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.101 2001-11-15 22:08:39 cg Exp $'
 ! !