BookmarkMenuBuilder.st
changeset 10281 4ed3150525d8
parent 10087 f03acff3d7cb
child 10296 020772a7653e
--- a/BookmarkMenuBuilder.st	Fri Jul 08 11:40:06 2011 +0200
+++ b/BookmarkMenuBuilder.st	Fri Jul 08 11:40:09 2011 +0200
@@ -26,7 +26,7 @@
 "{ Package: 'stx:libtool' }"
 
 BookmarkVisitor subclass:#BookmarkMenuBuilder
-	instanceVariableNames:'menu stack toolbar'
+	instanceVariableNames:'resources menu stack toolbar'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Bookmarks'
@@ -64,15 +64,6 @@
 
 !BookmarkMenuBuilder class methodsFor:'instance creation'!
 
-buildMenuFor: anObject
-
-    ^self new
-        visit: anObject;
-        menu
-
-    "Created: / 02-06-2011 / 21:52:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 new
     "return an initialized instance"
 
@@ -95,6 +86,10 @@
     ^ menu
 
     "Created: / 23-05-2011 / 10:43:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+resources:something
+    resources := something.
 ! !
 
 !BookmarkMenuBuilder methodsFor:'initialization'!
@@ -117,18 +112,20 @@
     ^self menuItemAddBookmark:anObject labeled:'Add Bookmark Here'.
 
     "Modified: / 21-06-2011 / 08:00:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-07-2011 / 11:39:31 / cg"
 !
 
 menuItemAddBookmark:anObject labeled: label
     |item|
 
-    item := MenuItem labeled: label.
+    item := MenuItem labeled:(resources string:label).
     item
         value:#menuAddBookmarkTo:;
         argument:anObject.
     ^ item
 
     "Created: / 21-06-2011 / 07:59:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-07-2011 / 11:39:40 / cg"
 !
 
 menuItemGotoBookmark:anObject 
@@ -147,6 +144,15 @@
 
 !BookmarkMenuBuilder methodsFor:'visiting'!
 
+buildMenuFor: anObject
+    ^ self
+        visit: anObject;
+        menu
+
+    "Created: / 02-06-2011 / 21:52:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 08-07-2011 / 11:37:42 / cg"
+!
+
 visitBookmark:anObject 
     |item|
 
@@ -188,7 +194,7 @@
 !BookmarkMenuBuilder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.2 2011-07-03 18:00:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.3 2011-07-08 09:40:09 cg Exp $'
 !
 
 version_SVN