--- a/ModalBox.st	Mon Jul 27 20:07:58 1998 +0200
+++ b/ModalBox.st	Mon Jul 27 20:15:40 1998 +0200
@@ -77,11 +77,11 @@
      the value from preferredExtent taken instead."
 
     DefaultExtent notNil ifTrue:[
-        ^ DefaultExtent
+	^ DefaultExtent
     ].
-    ^ (Screen current pixelPerMillimeter * (60 @ 30)) rounded
+    ^ (Screen current pixelPerMillimeter * (60 @ 20)) rounded
 
-    "Modified: 15.8.1997 / 01:45:52 / cg"
+    "Modified: / 27.7.1998 / 20:15:15 / cg"
 !
 
 defaultLabel
@@ -860,6 +860,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.61 1997-12-08 18:20:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.62 1998-07-27 18:15:40 cg Exp $'
 ! !
 ModalBox initialize!