--- a/TopView.st	Fri Feb 28 22:35:19 1997 +0100
+++ b/TopView.st	Fri Feb 28 22:38:28 1997 +0100
@@ -11,10 +11,10 @@
 "
 
 View subclass:#TopView
-        instanceVariableNames:'type'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-Basic'
+	instanceVariableNames:'type'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Basic'
 !
 
 !TopView class methodsFor:'documentation'!
@@ -253,6 +253,16 @@
     ^ shown not
 !
 
+isPopUpView
+    "return true, since I want to come up without decoration 
+     and popUp to top immediately."
+
+    ^ type == #popup
+
+    "Created: 28.2.1997 / 22:12:30 / cg"
+    "Modified: 28.2.1997 / 22:37:01 / cg"
+!
+
 preferredExtent
     "return my preferred extent - this is the minimum size I would like to have.
      The default here is the classes default extent,
@@ -476,5 +486,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.37 1997-02-28 21:09:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.38 1997-02-28 21:38:28 cg Exp $'
 ! !