FilenameWidgetWithHistory.st
changeset 3940 705b77e37f67
parent 3700 fada057195d0
child 3950 ed9840178c01
--- a/FilenameWidgetWithHistory.st	Tue Oct 19 17:04:45 2010 +0200
+++ b/FilenameWidgetWithHistory.st	Tue Oct 19 17:05:09 2010 +0200
@@ -186,13 +186,12 @@
     directoriesOnly := filesOnly := false.
     initialDirectoryHolder := nil asValue.
 
-    fileNameEntryField := FilenameComboBoxView in:self.
+    self initializeFilenameField.
     fileNameEntryField layout:(LayoutFrame
                                   leftFraction:0 offset:0 
                                   rightFraction:1 offset:-22 
                                   topFraction:0 offset:0 
                                   bottomFraction:1 offset:0).
-    fileNameEntryField listHolder:(self historyList).
 
     browseButton := Button in:self.
     browseButton label:'...'.
@@ -202,6 +201,15 @@
                                   rightFraction:1 offset:-2 
                                   topFraction:0 offset:0 
                                   bottomFraction:1 offset:0).
+
+    "Modified: / 19-10-2010 / 16:21:17 / cg"
+!
+
+initializeFilenameField
+    fileNameEntryField := FilenameComboBoxView in:self.
+    fileNameEntryField listHolder:(self historyList).
+
+    "Created: / 19-10-2010 / 16:20:09 / cg"
 ! !
 
 !FilenameWidgetWithHistory methodsFor:'queries'!
@@ -275,5 +283,9 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.13 2009-05-20 07:17:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.14 2010-10-19 15:05:09 cg Exp $'
 ! !