--- a/WindowBuilder.st	Fri Mar 21 19:05:38 2003 +0100
+++ b/WindowBuilder.st	Fri Mar 21 19:40:48 2003 +0100
@@ -1308,18 +1308,18 @@
             window bePartner.
         ].
 
-"/ the following automatism is probably too cryptic and has too many
-"/ side effects on the currently active group.
+        ((type = #slave or:[type = #partner]) 
+        and:[ window windowGroup isNil ])
+        ifTrue:[
+            window openInGroup:(WindowGroup activeGroup).
+        ] ifFalse:[
+            window open.
+        ].
+
+"/ the following automatism is probably too cryptic and has too much of a side effect.
 "/ 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
 "/        ].
@@ -1344,5 +1344,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.105 2003-03-21 17:37:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.106 2003-03-21 18:40:48 cg Exp $'
 ! !