--- a/HostGraphicsDevice.st	Fri Jun 22 17:04:07 2001 +0200
+++ b/HostGraphicsDevice.st	Fri Jun 22 18:26:19 2001 +0200
@@ -152,6 +152,12 @@
     ^ deviceViews
 ! !
 
+!HostGraphicsDevice methodsFor:'accessing & queries'!
+
+defaultExtentForTopViews
+    ^ (self width // 3 * 2) @ (self height // 3 * 2)
+! !
+
 !HostGraphicsDevice methodsFor:'initialize / release'!
 
 initializeDeviceResourceTables
@@ -274,5 +280,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.16 2000-09-04 15:35:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.17 2001-06-22 16:26:19 cg Exp $'
 ! !