--- a/WindowBuilder.st	Fri Mar 21 18:07:42 2003 +0100
+++ b/WindowBuilder.st	Fri Mar 21 18:31:50 2003 +0100
@@ -1299,15 +1299,31 @@
 "/            window beSlave.
 "/        ].
 
-        "/ must be done explizit, by passing an appropriate windowType
+        "/ must be done explicit, by passing an appropriate windowType
+
         type = #slave ifTrue:[
             window beSlave.
         ].
         type = #partner ifTrue:[
             window bePartner.
         ].
-        
-        window open.
+
+"/ the following automatism is probably too cryptic and has too many
+"/ side effects on the currently active group.
+"/ I prefer to leave things as they are: i.e. enforce the programmer to
+"/ do thinks explicit.
+
+"/        ((type = #slave or:[type = #partner]) 
+"/        and:[ window windowGroup isNil ])
+"/        ifTrue:[
+"/            window openInGroup:(WindowGroup activeGroup).
+"/        ] ifFalse:[
+"/            window open.
+"/        ].
+"/        type = #slave ifTrue:[
+"/            window windowGroup topViews first beMaster
+"/        ].
+
         ^ self
     ].
 
@@ -1328,5 +1344,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.103 2002-11-26 16:19:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.104 2003-03-21 17:31:50 cg Exp $'
 ! !