--- a/FileBrowser.st Fri Jun 21 02:44:41 2013 +0200
+++ b/FileBrowser.st Fri Jun 21 02:45:14 2013 +0200
@@ -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,10 +7512,10 @@
!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 $'
! !