--- a/ResourceSpecEditor.st	Mon Mar 06 09:45:55 2006 +0100
+++ b/ResourceSpecEditor.st	Mon Mar 06 09:52:26 2006 +0100
@@ -219,6 +219,10 @@
 
 !ResourceSpecEditor methodsFor:'aspects'!
 
+aspectAt:aKey put:aValueHolder
+    aspects at: aKey put:aValueHolder
+!
+
 aspectFor:aKey
     "returns the aspect for a aKey or nil"
 
@@ -536,10 +540,11 @@
 !ResourceSpecEditor methodsFor:'startup & release'!
 
 closeRequest
-    "asks first for modification, then sends close request to super"
+    "asks for permission before closing"
 
-    self askForModification ifTrue: [super closeRequest]
-
+    self askForModification ifTrue: [
+        super closeRequest
+    ]
 !
 
 loadFromMessage:classAndSelector
@@ -751,5 +756,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.36 2006-02-17 12:06:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.37 2006-03-06 08:52:26 cg Exp $'
 ! !