BookmarkMenuBuilder.st
branchjv
changeset 15566 184cea584be5
parent 13491 b3afe831ff0a
parent 15341 a0f2dd10916b
--- a/BookmarkMenuBuilder.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/BookmarkMenuBuilder.st	Wed Apr 01 10:38:01 2015 +0100
@@ -25,6 +25,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 BookmarkVisitor subclass:#BookmarkMenuBuilder
 	instanceVariableNames:'resources menu stack toolbar'
 	classVariableNames:''
@@ -108,10 +110,11 @@
 !
 
 menuItemAddBookmark:anObject labeled: label
-    ^ MenuItem 
+    ^ (MenuItem 
         label:(resources string:label)
         itemValue:#menuAddBookmarkTo:
-        argument:anObject.
+        argument:anObject)
+        translateLabel:false.
 
     "Created: / 21-06-2011 / 07:59:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-07-2011 / 11:39:40 / cg"
@@ -119,7 +122,9 @@
 
 menuItemFolder: folder
 
-    ^ MenuItem label:folder label
+    ^ (MenuItem 
+        label:folder label)
+        translateLabel:false.
 
     "Created: / 21-06-2011 / 08:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -130,10 +135,12 @@
     label := anObject label.
     icon := anObject icon.
     icon notNil ifTrue:[ label := LabelAndIcon label:label icon:icon ].
-    ^ MenuItem 
-                label:label
-                itemValue:#switchToBookmarkEntry:
-                argument:anObject.
+    ^ (MenuItem
+        label:label
+        itemValue:#switchToBookmarkEntry:
+        argument:anObject)
+            activeHelpKey:(anObject flyByHelpText);
+            translateLabel:false.
 
     "Created: / 21-06-2011 / 07:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 29-11-2011 / 11:21:20 / cg"
@@ -190,16 +197,15 @@
 
 !BookmarkMenuBuilder class methodsFor:'documentation'!
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.7 2013-08-31 17:41:19 cg Exp $'
+version
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
 !
 
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: BookmarkMenuBuilder.st,v 1.7 2013-08-31 17:41:19 cg Exp $'
+    ^ '$Id: BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
 ! !