--- 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 $'
! !