--- a/WindowBuilder.st	Fri Feb 14 01:01:41 1997 +0100
+++ b/WindowBuilder.st	Fri Feb 14 01:16:56 1997 +0100
@@ -203,6 +203,19 @@
     "Created: 17.1.1997 / 21:06:16 / cg"
 !
 
+componentFor:aKey
+    |cls|
+
+    application notNil ifTrue:[
+        ^ application componentFor:aKey
+    ].
+    applicationClass notNil ifTrue:[
+        ^ applicationClass componentFor:aKey
+    ].
+    ^ self aspectAt:aKey
+
+!
+
 labelFor:aKey
     |cls|
 
@@ -338,5 +351,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.19 1997-02-14 00:01:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.20 1997-02-14 00:16:56 ca Exp $'
 ! !