equal
deleted
inserted
replaced
3629 | menu item | |
3629 | menu item | |
3630 |
3630 |
3631 menu := self bookmarks asMenuUsingBuilder: (BookmarkMenuBuilder new resources:resources). |
3631 menu := self bookmarks asMenuUsingBuilder: (BookmarkMenuBuilder new resources:resources). |
3632 menu hasItems ifTrue:[menu addSeparator]. |
3632 menu hasItems ifTrue:[menu addSeparator]. |
3633 |
3633 |
3634 item := MenuItem labeled:(resources string:'Add Bookmark'). |
3634 item := MenuItem |
3635 item itemValue:#addBookmark. |
3635 label:(resources string:'Add Bookmark') |
3636 item enabled:[self canAddBookmark]. |
3636 itemValue:#addBookmark |
|
3637 enabled:[self canAddBookmark]. |
3637 menu addItem: item. |
3638 menu addItem: item. |
3638 |
3639 |
3639 menu addSeparator. |
3640 menu addSeparator. |
3640 |
3641 |
3641 item := MenuItem labeled:(resources string:'Edit Bookmarks'). |
3642 item := MenuItem |
3642 item itemValue:#editBookmarks. |
3643 label:(resources string:'Edit Bookmarks') |
|
3644 itemValue:#editBookmarks. |
3643 menu addItem: item. |
3645 menu addItem: item. |
3644 ^menu |
3646 ^menu |
3645 |
3647 |
3646 "Created: / 20-06-2011 / 22:21:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3648 "Created: / 20-06-2011 / 22:21:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3647 "Modified: / 21-06-2011 / 08:05:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3649 "Modified: / 21-06-2011 / 08:05:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4024 ! ! |
4026 ! ! |
4025 |
4027 |
4026 !WorkspaceApplication class methodsFor:'documentation'! |
4028 !WorkspaceApplication class methodsFor:'documentation'! |
4027 |
4029 |
4028 version |
4030 version |
4029 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.246 2013-08-30 08:27:36 cg Exp $' |
4031 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.247 2013-08-31 17:19:15 cg Exp $' |
4030 ! |
4032 ! |
4031 |
4033 |
4032 version_CVS |
4034 version_CVS |
4033 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.246 2013-08-30 08:27:36 cg Exp $' |
4035 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.247 2013-08-31 17:19:15 cg Exp $' |
4034 ! |
4036 ! |
4035 |
4037 |
4036 version_SVN |
4038 version_SVN |
4037 ^ '$Id: WorkspaceApplication.st,v 1.246 2013-08-30 08:27:36 cg Exp $' |
4039 ^ '$Id: WorkspaceApplication.st,v 1.247 2013-08-31 17:19:15 cg Exp $' |
4038 ! ! |
4040 ! ! |
4039 |
4041 |