--- a/BookmarkMenuBuilder.st Sat Aug 31 19:40:22 2013 +0200
+++ b/BookmarkMenuBuilder.st Sat Aug 31 19:41:19 2013 +0200
@@ -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,9 +191,10 @@
!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_SVN
- ^ '§Id§'
+ ^ '$Id: BookmarkMenuBuilder.st,v 1.7 2013-08-31 17:41:19 cg Exp $'
! !
+