--- a/ApplicationSubView.st	Wed Nov 22 15:53:15 2000 +0100
+++ b/ApplicationSubView.st	Wed Nov 22 15:54:00 2000 +0100
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libview2' }"
+
 View subclass:#ApplicationSubView
 	instanceVariableNames:'application'
 	classVariableNames:''
@@ -59,12 +61,14 @@
 application
     "return the value of the instance variable 'application' (automatically generated)"
 
-    ^ application!
+    ^ application
+!
 
 application:something
     "set the value of the instance variable 'application' (automatically generated)"
 
-    application := something.!
+    application := something.
+!
 
 client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
     self application:anApplication.
@@ -73,8 +77,19 @@
 
 ! !
 
+!ApplicationSubView methodsFor:'events'!
+
+realize
+    |app|
+
+    super realize.
+    (app := self application) notNil ifTrue:[
+        app postOpenAsSubcanvasWith:app builder
+    ]
+! !
+
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.3 2000-02-18 14:29:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.4 2000-11-22 14:54:00 tm Exp $'
 ! !