# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 993227283 -7200
# Node ID e66622e4f832d2649ee4454a8685e80ecdc97c81
# Parent  0967a57d0350eb64b2dcebc376a153f01b38212c
defaultExtent: ask device

diff -r 0967a57d0350 -r e66622e4f832 TopView.st
--- a/TopView.st	Fri Jun 22 18:26:35 2001 +0200
+++ b/TopView.st	Fri Jun 22 18:28:03 2001 +0200
@@ -71,9 +71,7 @@
     display isNil ifTrue:[
         ^ 600 @ 400
     ].
-    ^ (display width // 3 * 2) @ (display height // 3 * 2)
-
-    "Modified: 22.4.1996 / 23:39:13 / cg"
+    ^ display defaultExtentForTopViews
 ! !
 
 !TopView methodsFor:'Compatibility - ST80'!
@@ -303,7 +301,8 @@
     "/
     self masterSlaveMessage:#destroy inGroup:wg
 
-    "Modified: 20.3.1997 / 22:14:16 / cg"!
+    "Modified: 20.3.1997 / 22:14:16 / cg"
+!
 
 initialize
     "initialize the topViews position for the screens center"
@@ -327,7 +326,8 @@
         keyboardProcessor := KeyboardProcessor new.
     ].
 
-    device realizedTopViewHookFor:self! !
+    device realizedTopViewHookFor:self
+! !
 
 !TopView methodsFor:'misc'!
 
@@ -401,7 +401,8 @@
     "return true, if the receiver has been opened modal"
 
     windowGroup isNil ifTrue:[^ false].
-    ^ windowGroup isModal!
+    ^ windowGroup isModal
+!
 
 isPopUpView
     "return true, since I want to come up without decoration 
@@ -670,7 +671,8 @@
 
 
     "Modified: / 10.9.1998 / 22:02:52 / cg"
-    "Modified: 30.5.1996 / 09:37:22 / cg"!
+    "Modified: 30.5.1996 / 09:37:22 / cg"
+!
 
 masterSlaveMessage:aSelector inGroup:aWindowGroup
     "send aSelector to partners and/or slaves.
@@ -720,5 +722,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.68 2000-11-09 15:17:34 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.69 2001-06-22 16:28:03 cg Exp $'
 ! !