--- a/UISpecificationTool.st	Thu Jan 17 10:55:27 2008 +0100
+++ b/UISpecificationTool.st	Thu Jan 17 10:55:39 2008 +0100
@@ -168,6 +168,18 @@
 
 !UISpecificationTool methodsFor:'accessing-specification'!
 
+listOfAspects
+    ^ masterApplication listOfAspects
+
+    "Created: / 12-01-2008 / 19:24:39 / cg"
+!
+
+listOfCallbacks
+    ^ masterApplication listOfCallbacks
+
+    "Created: / 12-01-2008 / 19:25:05 / cg"
+!
+
 specification
     "gets current edit specification
     "
@@ -208,11 +220,16 @@
     aspects at:#modifiedChannel put:modifiedHolder.
     aspects at:#acceptChannel   put:self acceptChannel.
 
+    aspects at:#listOfAspects put:[self listOfAspects].
+    aspects at:#listOfCallbacks put:[self listOfCallbacks].
+
     specChannel := specification asValue.
     specification class addBindingsTo:aspects for:specification channel:specChannel.
 
     "/ arrange for being notified, if any aspect changes
     aspects do:[:el| el addDependent:self ].
+
+    "Modified: / 12-01-2008 / 19:28:47 / cg"
 ! !
 
 !UISpecificationTool methodsFor:'actions'!
@@ -247,19 +264,20 @@
 !UISpecificationTool methodsFor:'bindings'!
 
 acceptChannel
-    "return the value of the instance variable 'acceptChannel' (automatically generated)"
+    ^ masterApplication acceptChannel
 
-    ^ masterApplication acceptChannel
+    "Modified: / 12-01-2008 / 11:28:38 / cg"
 !
 
 aspectFor:aKey
-    "returns aspect for a key or nil
-    "
+    "returns the aspect for a key or nil"
+
     aspects notNil ifTrue:[
         ^ aspects at:aKey ifAbsent:nil
     ].
     ^ super aspectFor:aKey
 
+    "Modified: / 12-01-2008 / 11:28:52 / cg"
 !
 
 buildInView