--- a/FilenameWidgetWithHistory.st	Wed Nov 12 14:11:23 2008 +0100
+++ b/FilenameWidgetWithHistory.st	Wed Nov 12 14:11:36 2008 +0100
@@ -109,6 +109,12 @@
     ^ history
 !
 
+historyList:aList
+    "set the history - useful when two or more such fields shall share a common history"
+
+    history := aList
+!
+
 model
     ^ fileNameEntryField model
 !
@@ -254,5 +260,5 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.10 2008-11-12 12:43:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.11 2008-11-12 13:11:36 cg Exp $'
 ! !