--- a/TopView.st	Thu Dec 02 22:03:42 1999 +0100
+++ b/TopView.st	Fri Dec 03 12:19:16 1999 +0100
@@ -66,6 +66,9 @@
     |display|
 
     display := Screen current.
+    display isNil ifTrue:[
+        ^ 600 @ 400
+    ].
     ^ (display width // 3 * 2) @ (display height // 3 * 2)
 
     "Modified: 22.4.1996 / 23:39:13 / cg"
@@ -668,5 +671,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.63 1999-11-22 19:29:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.64 1999-12-03 11:19:16 cg Exp $'
 ! !