--- a/WindowGroup.st	Fri May 03 20:03:02 2002 +0200
+++ b/WindowGroup.st	Fri May 03 20:04:24 2002 +0200
@@ -1164,7 +1164,7 @@
      destroy and other collection changing operations to be performed in the loop."
 
     self allTopViewsDo:[:v |
-	(v type == #partner) ifTrue:[aBlock value:v].
+        v isPartner ifTrue:[aBlock value:v].
     ].
 
     "Modified: 12.2.1997 / 12:21:41 / cg"
@@ -1176,7 +1176,7 @@
      destroy and other collection changing operations to be performed in the loop."
 
     self allTopViewsDo:[:v |
-	(v type == #slave) ifTrue:[aBlock value:v].
+        v isSlave ifTrue:[aBlock value:v].
     ].
 
     "Modified: 12.2.1997 / 12:21:46 / cg"
@@ -2659,6 +2659,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.239 2002-05-02 10:48:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.240 2002-05-03 18:04:24 cg Exp $'
 ! !
 WindowGroup initialize!