--- a/VisualComponent.st	Fri Nov 19 15:18:51 1999 +0100
+++ b/VisualComponent.st	Fri Nov 19 18:27:24 1999 +0100
@@ -160,6 +160,12 @@
 
 !VisualComponent methodsFor:'accessing-STX-attributes'!
 
+application
+    ^ self container application
+
+    "Created: / 19.11.1999 / 17:44:38 / cg"
+!
+
 borderWidth
     ^ 0
 
@@ -480,5 +486,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.17 1999-08-18 19:50:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.18 1999-11-19 17:27:24 cg Exp $'
 ! !