projectsMenuOn: aDockingBar


	links to this page:

Last updated at 5:26 am UTC on 28 April 2019

projectsMenuOn: aDockingBar

	aDockingBar addItem: [ :item |
		item
			contents: 'Projects' translated;
			addSubMenu: [ :menu | 
				self newProjectMenuItemOn: menu.
				menu addLine.
				self
					saveProjectMenuItemOn: menu;
					loadProjectMenuItemOn: menu.
				menu addLine.
				self
					previousProjectMenuItemOn: menu;
					jumpToProjectMenuItemOn: menu ] ]

newProjectMenuItemOn: menu

	Project allSubclasses do: [ :each |
		menu addItem: [ :item | 
			item
				contents: ('New ', each name) translated;
				help: ('Start a new ', each name) translated;
				target: self;
				selector: #newProject:;
				arguments: { each } ] ]

After you have added a new subclass to MorphicProject you need to hide and show TheWorldMenuDockingBar instance for the menu to be updated.

See also