--- 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 $'
! !