--- a/FilenameWidgetWithHistory.st	Fri Jul 11 17:50:37 2008 +0200
+++ b/FilenameWidgetWithHistory.st	Fri Jul 11 20:51:19 2008 +0200
@@ -68,7 +68,11 @@
 !FilenameWidgetWithHistory methodsFor:'accessing'!
 
 historyList
-    ^ #('a' 'b' 'c')
+    ^ history ? #()
+!
+
+historyList:aCollection
+    history := aCollection
 !
 
 model
@@ -183,5 +187,5 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.5 2008-07-11 15:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.6 2008-07-11 18:51:19 cg Exp $'
 ! !