--- a/BookmarkMenuBuilder.st Mon Sep 02 13:53:47 2013 +0100
+++ b/BookmarkMenuBuilder.st Wed Sep 04 11:33:19 2013 +0100
@@ -108,13 +108,10 @@
!
menuItemAddBookmark:anObject labeled: label
- |item|
-
- item := MenuItem labeled:(resources string:label).
- item
- value:#menuAddBookmarkTo:;
+ ^ MenuItem
+ label:(resources string:label)
+ itemValue:#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"
@@ -122,21 +119,21 @@
menuItemFolder: folder
- ^(MenuItem labeled:folder label)
+ ^ MenuItem label:folder label
"Created: / 21-06-2011 / 08:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
menuItemGotoBookmark:anObject
- |item icon label|
+ |icon label|
label := anObject label.
icon := anObject icon.
icon notNil ifTrue:[ label := LabelAndIcon label:label icon:icon ].
- item := (MenuItem labeled:label)
- value:#switchToBookmarkEntry:;
+ ^ MenuItem
+ label:label
+ itemValue:#switchToBookmarkEntry:
argument:anObject.
- ^ item
"Created: / 21-06-2011 / 07:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 29-11-2011 / 11:21:20 / cg"
@@ -194,7 +191,7 @@
!BookmarkMenuBuilder class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.6 2011/11/29 10:21:54 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.7 2013-08-31 17:41:19 cg Exp $'
!
version_HG
@@ -203,6 +200,6 @@
!
version_SVN
- ^ '$Id: BookmarkMenuBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: BookmarkMenuBuilder.st,v 1.7 2013-08-31 17:41:19 cg Exp $'
! !