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