BookmarkMenuBuilder.st
branchjv
changeset 13491 b3afe831ff0a
parent 12431 9f0c59c742d5
parent 13435 79039118e099
child 15566 184cea584be5
--- 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 $'
 ! !