--- a/HostGraphicsDevice.st	Fri Jun 22 18:28:03 2001 +0200
+++ b/HostGraphicsDevice.st	Fri Jun 22 18:50:18 2001 +0200
@@ -155,7 +155,15 @@
 !HostGraphicsDevice methodsFor:'accessing & queries'!
 
 defaultExtentForTopViews
-    ^ (self width // 3 * 2) @ (self height // 3 * 2)
+    |w h|
+
+    w := self width.
+    h := self height.
+
+    self isPDA ifTrue:[
+        ^ (w - 16) @ (h - 20)
+    ].
+    ^ (w // 3 * 2) @ (h // 3 * 2)
 ! !
 
 !HostGraphicsDevice methodsFor:'initialize / release'!
@@ -280,5 +288,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.17 2001-06-22 16:26:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.18 2001-06-22 16:50:18 cg Exp $'
 ! !