equal
deleted
inserted
replaced
750 |
750 |
751 <resource: #programMenu> |
751 <resource: #programMenu> |
752 |
752 |
753 | menu | |
753 | menu | |
754 menu := Menu new. |
754 menu := Menu new. |
755 history goBackItems do: |
755 history goBackItems do: [:historyEntry| |
756 [:historyEntry| |
756 menu addItemLabel: historyEntry label |
757 menu addItem: |
757 value:[self switchToHistoryEntry: historyEntry] |
758 (MenuItem |
758 ]. |
759 label: historyEntry label |
|
760 itemValue:[self switchToHistoryEntry: historyEntry])]. |
|
761 ^menu |
759 ^menu |
762 |
760 |
763 "Created: / 22-02-2008 / 16:55:18 / janfrog" |
761 "Created: / 22-02-2008 / 16:55:18 / janfrog" |
764 "Modified: / 27-02-2008 / 11:54:08 / janfrog" |
762 "Modified: / 27-02-2008 / 11:54:08 / janfrog" |
765 "Modified: / 08-06-2011 / 15:01:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
763 "Modified: / 08-06-2011 / 15:01:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
771 |
769 |
772 | menu | |
770 | menu | |
773 |
771 |
774 menu := Menu new. |
772 menu := Menu new. |
775 history goForwardItems do:[:historyEntry| |
773 history goForwardItems do:[:historyEntry| |
776 menu addItem: |
774 menu addItemLabel: historyEntry label |
777 (MenuItem |
775 value:[self switchToHistoryEntry: historyEntry] |
778 label: historyEntry label |
|
779 itemValue:[self switchToHistoryEntry: historyEntry]) |
|
780 ]. |
776 ]. |
781 ^menu |
777 ^menu |
782 |
778 |
783 "Created: / 22-02-2008 / 16:55:18 / janfrog" |
779 "Created: / 22-02-2008 / 16:55:18 / janfrog" |
784 "Modified: / 27-02-2008 / 11:54:27 / janfrog" |
780 "Modified: / 27-02-2008 / 11:54:27 / janfrog" |