# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1061327288 -7200
# Node ID 1f44028f8fb7c9e58f00cb13eb886d2a6589f6ed
# Parent  2fa4c585531d7657e3097483b7b0f6e0d2d7f563
*** empty log message ***

diff -r 2fa4c585531d -r 1f44028f8fb7 AbstractFileBrowser.st
--- 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 $'
 ! !