--- a/FileDialog.st	Thu Jul 04 15:59:11 2013 +0200
+++ b/FileDialog.st	Thu Jul 04 16:51:00 2013 +0200
@@ -1231,16 +1231,10 @@
 !
 
 initialText
-
-    initialText isNil ifTrue:[
-        ^ resources string:'File Dialog'.
-    ].
-    ^ resources string:initialText
+    ^ resources string:(initialText ? 'File Dialog')
 !
 
 initialText:something
-    "set the value of the instance variable 'initialText' (automatically generated)"
-
     initialText := something.
 !
 
@@ -1866,13 +1860,14 @@
     (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp).
 
     win := aBuilder window .
-    hMin := (aBuilder window margin * 2)
+    hMin := (win margin * 2)
             + aBuilder menuBar preferredHeight
             + (aBuilder componentAt:#FilenameEntryField) height
             + (aBuilder componentAt:#ToolBar1) preferredHeight
             + (aBuilder componentAt:#ButtonPanel) preferredHeight.
 
     win minExtent:( win minExtent x @ hMin ).
+    win topView label:self initialText.
 
     super postBuildWith:aBuilder
 !
@@ -2078,11 +2073,11 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $'
 !
 
 version_HG
@@ -2091,6 +2086,6 @@
 !
 
 version_SVN
-    ^ '$Id: FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $'
+    ^ '$Id: FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $'
 ! !