FileBrowser.st
changeset 12962 6419aa2abc5f
parent 12843 481f4ad06396
child 13173 e9da2324940d
child 13434 d4f17052a696
--- 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 $'
 ! !