--- a/ApplicationSubView.st	Fri Jul 27 18:32:01 2018 +0200
+++ b/ApplicationSubView.st	Sun Jul 29 14:25:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 View subclass:#ApplicationSubView
 	instanceVariableNames:'application buildMenu'
 	classVariableNames:''
@@ -145,12 +149,19 @@
 !
 
 realize
-    |app|
+    |app window|
 
     super realize.
     (app := self application) notNil ifTrue:[
+        (window := app window) notNil ifTrue:[
+            window windowGroup isNil ifTrue:[
+                window windowGroup:self windowGroup.
+            ].    
+        ].    
         app postOpenAsSubcanvasWith:app builder
     ]
+
+    "Modified: / 29-07-2018 / 14:24:42 / Claus Gittinger"
 ! !
 
 !ApplicationSubView methodsFor:'testing'!
@@ -162,10 +173,10 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.12 2014-03-05 20:25:41 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.12 2014-03-05 20:25:41 vrany Exp $'
+    ^ '$Header$'
 ! !