FileBrowser.st
branchjv
changeset 13173 e9da2324940d
parent 13170 c9b815af5777
parent 12962 6419aa2abc5f
child 13491 b3afe831ff0a
--- 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