--- a/UISpecificationTool.st	Wed Feb 04 16:53:16 1998 +0100
+++ b/UISpecificationTool.st	Thu Feb 05 01:02:00 1998 +0100
@@ -629,6 +629,23 @@
     builder application:appl.
     builder componentAt:#Frame put:frame.
 
+!
+
+specificationFor:aKey
+    "this is called if our current specification contains 
+     subspecifications or subcanvases.
+     Get the subspecification from the current specification"
+
+    |cls|
+
+    cls := specification class.
+    (cls respondsTo:aKey) ifTrue:[
+        ^ cls perform:aKey
+    ].
+    ^ nil
+
+    "Created: / 4.2.1998 / 23:52:39 / stefan"
+    "Modified: / 4.2.1998 / 23:58:23 / stefan"
 ! !
 
 !UISpecificationTool methodsFor:'change & update'!