diff -r 1a09a1d7d28d -r cf8e46015072 TopView.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TopView.st	Wed May 03 02:27:48 1995 +0200
@@ -0,0 +1,116 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+View subclass:#TopView
+       instanceVariableNames:''
+       classVariableNames:   ''
+       poolDictionaries:''
+       category:'Views-Basic'
+!
+
+TopView comment:'
+COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+$Header: /cvs/stx/stx/libview/TopView.st,v 1.1 1995-05-03 00:25:39 claus Exp $
+'!
+
+!TopView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libview/TopView.st,v 1.1 1995-05-03 00:25:39 claus Exp $
+"
+!
+
+documentation
+"
+    I am an abstract superclass of StandardSystemView and PopUpView;
+    i.e. views which have no superview.
+"
+! !
+
+!TopView class methodsFor:'defaults'!
+
+defaultExtent
+    "topviews extent is (0.6 @ 0.6) of screen by default"
+
+    ^ (Display width // 3 * 2) @ (Display height // 3 * 2)
+! !
+
+!TopView methodsFor:'initialization'!
+
+initialize
+    |screenCenter|
+
+    super initialize.
+
+    screenCenter := device center.
+    left := screenCenter x - (width // 2).
+    top := screenCenter y - (height // 2).
+! !
+
+!TopView methodsFor:'misc'!
+
+withWaitCursorDo:aBlock
+    "evaluate aBlock while showing a waitCursor in all my views"
+
+    self withCursor:(Cursor wait) do:aBlock
+!
+
+withCursor:aCursor do:aBlock
+    "evaluate aBlock while showing aCursor in all my views"
+
+    windowGroup notNil ifTrue:[
+	windowGroup withCursor:aCursor do:aBlock
+    ] ifFalse:[
+	super withCursor:aCursor do:aBlock
+    ]
+! !
+
+!TopView methodsFor:'accessing & queries'!
+
+preferedExtent
+    "return my preferred extent - this is the minimum size I would like to have.
+     The default here is the classes default extent,
+     however many subclasses redefine this to compute the actual value
+     depending on the sizes of the contents or subcomponents."
+
+    ^ self class defaultExtent
+!
+
+heightIncludingBorder
+    "return the views overall-height"
+
+    ^ height
+!
+
+widthIncludingBorder
+    "return the views overall-width"
+
+    ^ width
+! !
+