class: FileBrowserV2
authorClaus Gittinger <cg@exept.de>
Tue, 08 Jul 2014 15:28:27 +0200
changeset 14603 c61a2e6f640f
parent 14602 26102c08f871
child 14604 8cbf91f053fa
class: FileBrowserV2 changed: #installInLauncher #menuFileHistory MenuItem creation code cleanup
FileBrowserV2.st
--- a/FileBrowserV2.st	Tue Jul 08 15:26:07 2014 +0200
+++ b/FileBrowserV2.st	Tue Jul 08 15:28:27 2014 +0200
@@ -237,7 +237,6 @@
 "/        space:true.
 
     menuItem := MenuItem new
-                    translateLabel: true;
                     value: action;
                     isButton: true;
                     "label:'File Browser'" icon:icon;
@@ -2377,10 +2376,12 @@
         "aFileItem fileName exists" true ifTrue:[
             menu addItem:(MenuItem 
                             label: aFileItem fileName asString 
-                            itemValue:[
-                                self setCurrentFileName:(aFileItem fileName).
-                                self openApplByFileItem:aFileItem
-                            ]).
+                            itemValue:
+                                [
+                                    self setCurrentFileName:(aFileItem fileName).
+                                    self openApplByFileItem:aFileItem
+                                ]
+                            translateLabel:false).
         ] ifFalse:[
             removeCol add:aFileItem.
         ]
@@ -2390,7 +2391,6 @@
         hist remove:el.
     ].
     removeItem := MenuItem new.
-    removeItem translateLabel:true.
     text := resources string:'Clear History'.
     "/ text := LabelAndIcon icon:(self class clearHistoryIcon) string:text.
     removeItem label:text.
@@ -2587,11 +2587,11 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.224 2014-07-05 08:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.225 2014-07-08 13:28:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.224 2014-07-05 08:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.225 2014-07-08 13:28:27 cg Exp $'
 ! !