--- a/ResourceSpecEditor.st	Mon Mar 07 15:19:41 2005 +0100
+++ b/ResourceSpecEditor.st	Thu Mar 17 16:26:23 2005 +0100
@@ -255,6 +255,10 @@
 
 !ResourceSpecEditor methodsFor:'building'!
 
+buildFromClass: aClass andSelector: aSelector
+    ^self subclassResponsibility
+!
+
 buildFromResourceSpec: aResourceSpec
     "concrete subclass has to reimplement this method
      in order to build its resource spec from aResourceSpec"
@@ -374,14 +378,14 @@
 
     self modified ifTrue:
     [
-        ((YesNoBox title:(resources string:'%1 spec was modified. Exit anyway?' with:self class resourceType asUppercaseFirst))        
+        ((YesNoBox title:(resources string:'%1 spec was modified. Proceed?' with:self class resourceType asUppercaseFirst))        
             noText:(resources string:'Cancel');
-            yesText:(resources string:'Discard Changes and Exit');
+            yesText:(resources string:'Discard Changes and Proceed');
             showAtPointer;
-            accepted) ifFalse: [^false].
+            accepted) ifFalse: [^ false].
         modified := false
     ].
-    ^true
+    ^ true
 
     "Modified: / 20.5.1998 / 03:40:26 / cg"
 !
@@ -634,15 +638,12 @@
      but only, if the editor is opened as stand alone;
      finally make a build of a resource spec containing no items"
 
-    self askForModification
-    ifTrue: 
-    [
+    self askForModification ifTrue:[
         self isStandAlone ifTrue: [specClass := specSelector := nil].
         self buildFromClass: nil andSelector: self class resourceType.
-        ^true
+        ^ true
     ].
-    ^false
-
+    ^ false
 !
 
 doSave
@@ -695,5 +696,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.29 2004-06-19 12:53:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.30 2005-03-17 15:26:23 penk Exp $'
 ! !