--- a/AbstractFileBrowser.st	Tue Aug 19 22:59:47 2003 +0200
+++ b/AbstractFileBrowser.st	Tue Aug 19 23:08:08 2003 +0200
@@ -4667,7 +4667,8 @@
     info do:[: el |
         maxLength := maxLength max:(el size).
     ].
-    textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
+    textBox extent:((maxLength * 5)@((info size max:40)* 10)).
+    textBox maxExtent:Screen current extent.
     textBox openModeless. "/ showAtPointer.
 !
 
@@ -6382,5 +6383,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.169 2003-08-16 09:55:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.170 2003-08-19 21:08:08 cg Exp $'
 ! !