--- a/TopView.st	Fri May 03 20:00:47 2002 +0200
+++ b/TopView.st	Fri May 03 20:03:02 2002 +0200
@@ -434,6 +434,12 @@
     ^ windowGroup isModal
 !
 
+isPartner
+    "return true, if this is a partnerView"
+
+    ^ type == #partner
+!
+
 isPopUpView
     "return true, since I want to come up without decoration 
      and popUp to top immediately."
@@ -758,5 +764,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.72 2002-05-03 18:00:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.73 2002-05-03 18:03:02 cg Exp $'
 ! !