--- a/TopView.st	Sat Mar 22 15:19:41 1997 +0100
+++ b/TopView.st	Sat Mar 22 15:21:52 1997 +0100
@@ -277,6 +277,14 @@
     "Modified: 28.2.1997 / 22:37:01 / cg"
 !
 
+isTopView
+    "return true, since I am a topView"
+
+    ^ true
+
+    "Created: 22.3.1997 / 14:45:55 / cg"
+!
+
 preferredExtent
     "return my preferred extent - this is the minimum size I would like to have.
      The default here is the classes default extent,
@@ -525,5 +533,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.42 1997-03-20 21:15:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.43 1997-03-22 14:21:52 cg Exp $'
 ! !