--- 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