--- a/StandardSystemView.st	Thu Sep 21 13:40:25 1995 +0200
+++ b/StandardSystemView.st	Mon Oct 23 18:00:19 1995 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.33 1995-09-10 19:35:53 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.34 1995-10-23 16:59:29 cg Exp $
 '!
 
 !StandardSystemView class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.33 1995-09-10 19:35:53 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.34 1995-10-23 16:59:29 cg Exp $
 "
 !
 
@@ -464,6 +464,20 @@
 	deviceIcon := deviceIcon on:device
     ].
     ^ deviceIcon
+!
+
+setWindowGroupFromApplication
+    |win|
+
+    windowGroup isNil ifTrue:[
+	application notNil ifTrue:[
+	    (win := application window) notNil ifTrue:[
+		windowGroup := win windowGroup.
+	    ]
+	]
+    ].
+
+    "Created: 22.9.1995 / 17:40:36 / claus"
 ! !
 
 !StandardSystemView methodsFor:'realization'!
@@ -844,6 +858,20 @@
      This is new protocol for ST-80 compatibility and not yet fully supported"
 
     application := anApplicationModel
+!
+
+bePartner
+    self setWindowGroupFromApplication.
+    super bePartner.
+
+    "Created: 22.9.1995 / 17:40:15 / claus"
+!
+
+beSlave
+    self setWindowGroupFromApplication.
+    super beSlave.
+
+    "Created: 22.9.1995 / 17:40:15 / claus"
 ! !
 
 !StandardSystemView methodsFor:'event handling'!