FileDialog.st
changeset 13004 3f9586e7a857
parent 13003 b18bfce89bb9
child 13025 8244753fe0a7
--- a/FileDialog.st	Tue Jun 25 10:29:51 2013 +0200
+++ b/FileDialog.st	Tue Jun 25 12:42:21 2013 +0200
@@ -1855,7 +1855,9 @@
     "Created: / 03-06-2013 / 17:41:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-postBuildWith:aBuilder    
+postBuildWith:aBuilder 
+    |win hMin|
+
     treeBrowser multipleSelect:multipleSelect.
     appendWasPressed := false.
 
@@ -1863,6 +1865,15 @@
     (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp).
     (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp).
 
+    win := aBuilder window .
+    hMin := (aBuilder window margin * 2)
+            + aBuilder menuBar preferredHeight
+            + (aBuilder componentAt:#FilenameEntryField) height
+            + (aBuilder componentAt:#ToolBar1) preferredHeight
+            + (aBuilder componentAt:#ButtonPanel) preferredHeight.
+
+    win minExtent:( win minExtent x @ hMin ).
+
     super postBuildWith:aBuilder
 !
 
@@ -2067,11 +2078,11 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.125 2013-06-25 08:29:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.126 2013-06-25 10:42:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.125 2013-06-25 08:29:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.126 2013-06-25 10:42:21 cg Exp $'
 !
 
 version_HG
@@ -2080,6 +2091,6 @@
 !
 
 version_SVN
-    ^ '$Id: FileDialog.st,v 1.125 2013-06-25 08:29:51 cg Exp $'
+    ^ '$Id: FileDialog.st,v 1.126 2013-06-25 10:42:21 cg Exp $'
 ! !