--- a/FilenameWidgetWithHistory.st	Tue Oct 19 17:06:17 2010 +0200
+++ b/FilenameWidgetWithHistory.st	Thu Oct 21 15:06:21 2010 +0200
@@ -68,6 +68,18 @@
 
 !FilenameWidgetWithHistory methodsFor:'accessing'!
 
+acceptOnExpand:aBoolean
+    fileNameEntryField acceptOnExpand:aBoolean
+
+    "Created: / 20-10-2010 / 17:49:54 / cg"
+!
+
+contents
+    ^ fileNameEntryField contents
+
+    "Created: / 20-10-2010 / 17:51:07 / cg"
+!
+
 dialogTitle:something
     "set the dialogs title"
 
@@ -127,6 +139,12 @@
 
 model:aFilenameHolder
     fileNameEntryField model:aFilenameHolder.
+!
+
+selectAllInitially
+    fileNameEntryField selectAllInitially
+
+    "Created: / 20-10-2010 / 17:50:23 / cg"
 ! !
 
 !FilenameWidgetWithHistory methodsFor:'accessing-channels'!
@@ -260,7 +278,9 @@
                                     ifTrue:[ resources string:'Select File' ]
                                     ifFalse:[ resources string:'Select Path' ]]].
 
-        defaultPath := self model value.
+        defaultPath := (self model notNil)
+                            ifTrue:[ self model value ]
+                            ifFalse:[ fileNameEntryField contents ].
         defaultPath notNil ifTrue:[
             defaultDir := defaultPath asFilename directory.
         ] ifFalse:[     
@@ -275,17 +295,20 @@
 
     initialDirectoryHolder value:path asFilename directory.
     "/ lastDirectoryHolder value:path directory.
-    self model value:path.
+    self model notNil ifTrue:[
+        self model value:path.
+    ].
+    fileNameEntryField contents:path.
 
-    "Modified: / 02-10-2006 / 14:45:54 / cg"
+    "Modified: / 20-10-2010 / 17:57:36 / cg"
 ! !
 
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.15 2010-10-21 13:06:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.15 2010-10-21 13:06:21 cg Exp $'
 ! !