BookmarkMenuBuilder.st
changeset 13435 79039118e099
parent 10912 a90f6de79d36
child 13491 b3afe831ff0a
child 14580 d4cdd1932bf0
--- 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 $'
 ! !
+