--- a/ResourceSpecEditor.st	Wed Dec 03 12:48:56 2003 +0100
+++ b/ResourceSpecEditor.st	Thu Dec 04 12:51:04 2003 +0100
@@ -363,12 +363,11 @@
 askForListModification
     "asks for resource modification"
 
-    modified
-    ifTrue:
+    self modified ifTrue:
     [
-        ((YesNoBox title:(resources string:'%1 Spec was modified !!' with:self class resourceType asUppercaseFirst))        
+        ((YesNoBox title:(resources string:'%1 spec was modified. Exit anyway?' with:self class resourceType asUppercaseFirst))        
             noText:(resources string:'Cancel');
-            yesText:(resources string:'Forget it and Proceed');
+            yesText:(resources string:'Discard Changes and Exit');
             showAtPointer;
             accepted) ifFalse: [^false].
         modified := false
@@ -687,5 +686,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.25 2003-05-07 14:41:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.26 2003-12-04 11:51:04 stefan Exp $'
 ! !