--- a/ResourceSpecEditor.st	Wed Apr 01 15:02:02 1998 +0200
+++ b/ResourceSpecEditor.st	Wed Apr 01 17:21:53 1998 +0200
@@ -14,8 +14,6 @@
 
 
 
-'From Smalltalk/X, Version:3.4.3 on 23-mar-1998 at 9:12:52 pm'                  !
-
 ToolApplicationModel subclass:#ResourceSpecEditor
 	instanceVariableNames:'modified aspects specClass specSelector tabSelection hasSaved'
 	classVariableNames:''
@@ -126,7 +124,7 @@
 !ResourceSpecEditor methodsFor:'accessing'!
 
 modified       
-    "return true, if the resource spec was modified"
+    "returns whether the resource spec was modified"
 
     ^modified
 !
@@ -138,27 +136,27 @@
 !
 
 specClass
-    "get the class where the resource spec is implemented"
+    "returns the class where the resource spec is implemented"
 
     ^specClass
 !
 
 specClass:aClass
-    "set the class (or name) where the resource spec is (or should be) implemented"
+    "sets the class (or name) where the resource spec is (or should be) implemented"
 
     aClass isBehavior ifTrue:[specClass := aClass name]
                      ifFalse:[specClass := aClass]
 !
 
 specSelector
-    "get the method selector of the resource spec"
+    "returns the method selector of the resource spec"
 
     ^specSelector
 
 !
 
 specSelector:aSelector
-    "set the method selector of the resource spec"
+    "sets the method selector of the resource spec"
 
     specSelector := aSelector
 ! !
@@ -166,14 +164,14 @@
 !ResourceSpecEditor methodsFor:'aspects'!
 
 aspectFor:aKey
-    "get the aspect for a aKey or nil"
+    "returns the aspect for a aKey or nil"
 
     ^aspects at: aKey ifAbsent: [super aspectFor:aKey]
 
 !
 
 tabModel
-    "get the value holder for the tab selection"
+    "returns the value holder for the tab selection"
 
     |holder|
     (holder := builder bindingAt:#tabModel) isNil ifTrue:[
@@ -252,7 +250,7 @@
 !ResourceSpecEditor methodsFor:'help'!
 
 defaultInfoLabel
-    "get default label for the info bar"
+    "returns the default label for the info bar"
 
     |cls|
     (specClass isSymbol and: [(cls := Smalltalk at: specClass) isClass])
@@ -293,7 +291,7 @@
 !ResourceSpecEditor methodsFor:'private'!
 
 askForItemModification
-    "ask for resource item modification"
+    "asks for resource item modification"
 
     self valueOfEnablingCommitButtons value
     ifTrue:
@@ -316,12 +314,12 @@
 !
 
 askForListModification
-    "ask for resource modification"
+    "asks for resource modification"
 
     modified
     ifTrue:
     [
-        ((YesNoBox title: 'List was modified!!')        
+        ((YesNoBox title: self class resourceType asUppercaseFirst, ' spec was modified!!')        
             noText:'Cancel';
             yesText:'Waste it and proceed';
             showAtPointer;
@@ -332,20 +330,20 @@
 !
 
 askForModification
-    "ask first for item and then for resource modification"
+    "asks first for item and then for resource modification"
 
     ^self askForItemModification and: [self askForListModification]
 
 !
 
 resolveClassNamed
-    "get current class or nil"
+    "returns current class or nil"
 
     ^Smalltalk resolveName:specClass inClass:self class
 !
 
 resourceMessage: aString
-    "extract from aString the specClass and the specSelector"
+    "extracts from aString the specClass and the specSelector"
 
     (aString notNil and: [self askForModification]) 
     ifTrue:
@@ -365,7 +363,7 @@
 !
 
 updateHistory
-    "if there was loaded a resource spec, update the history"
+    "if there was loaded a resource spec, it updates the history"
 
     |cls|             
     ((cls := self resolveClassNamed) notNil and: [cls class implements: specSelector])
@@ -497,7 +495,7 @@
 !
 
 doBrowseClass
-    "open a System Browser on the specClass and specSelector"
+    "opens a System Browser on the specClass and specSelector"
 
     |cls|
 
@@ -507,7 +505,7 @@
 !
 
 doEditImage
-    "open the Image Editor on a resource retriever and icon selector"
+    "opens a Image Editor on a resource retriever and icon selector"
 
     |cls resourceClass resourceSelector imageResourceMessage readStream|
 
@@ -536,7 +534,7 @@
 !
 
 doLoad
-    "open a Resource Selection Browser in order to get a resource message"
+    "opens a Resource Selection Browser in order to get a resource message"
 
     self loadFromMessage: 
         (ResourceSelectionBrowser
@@ -609,5 +607,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.4 1998-03-30 14:00:39 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.5 1998-04-01 15:21:53 tz Exp $'
 ! !