diff -r 06656434532b -r e9da2324940d FileBrowser.st --- a/FileBrowser.st Thu Jun 13 12:23:07 2013 +0100 +++ b/FileBrowser.st Fri Jun 21 19:05:40 2013 +0100 @@ -565,9 +565,11 @@ |pathName| pathName := dirName asFilename pathName. - menu addItem:((MenuItem label:pathName value:#changeDirectoryTo:) - argument:dirName; - yourself). + menu addItem:((MenuItem + label:pathName + itemValue:#changeDirectoryTo:) + argument:dirName; + yourself). ]. ]. ^ menu @@ -696,9 +698,11 @@ self directoryHistory do:[:item | | dirName | dirName := item path. - m addItem:((MenuItem label:dirName value:#changeDirectoryTo:) - argument:dirName; - yourself). + m addItem:((MenuItem + label:dirName + itemValue:#changeDirectoryTo:) + argument:dirName; + yourself). ]. ]. @@ -1461,9 +1465,11 @@ "/ add the history items ... VisitedFileHistory do:[:pathName | - m addItem:((MenuItem label:pathName asFilename baseName value:#revisitFile:) - argument:pathName; - yourself). + m addItem:((MenuItem + label:pathName asFilename baseName + itemValue:#revisitFile:) + argument:pathName; + yourself). ]. ^ m ! ! @@ -7506,11 +7512,11 @@ !FileBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.649 2013-06-05 13:22:16 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.649 2013-06-05 13:22:16 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' ! version_HG