Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.257.mcz

==================== Summary ====================

Name: Morphic-ar.257
Author: ar
Time: 28 November 2009, 11:18:18 am
UUID: 2961b22d-c091-8142-8afe-9ee419f7e90b
Ancestors: Morphic-ar.256

More complete menus. Should be close to using it without the world menu now.

=============== Diff against Morphic-ar.256 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar>>startMessageTally (in category 'menu actions') -----
+ startMessageTally
+ 	(self confirm: 'MessageTally will start now,
+ and stop when the cursor goes
+ to the top of the screen') ifTrue:
+ 		[MessageTally spyOn:
+ 			[[Sensor peekMousePt y > 0] whileTrue: [World doOneCycle]]]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>simpleChangeSorterMenuItemOn: (in category 'submenu - tools') -----
+ simpleChangeSorterMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Simple Change Sorter' translated;
+ 			help: 'Open a Change Sorter' translated;
+ 			icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor);
+ 			target: ChangeSorter;
+ 			selector: #open ]!

Item was changed:
  ----- Method: TheWorldMainDockingBar class>>initialize (in category 'class initialization') -----
  initialize
  	" self initialize "
  	
  	Locale addLocalChangedListener: self.
  	self updateInstances.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>vmStatistics (in category 'menu actions') -----
+ vmStatistics
+ 	"Open a string view on a report of vm statistics"
+ 
+ 	(StringHolder new contents: SmalltalkImage current  vmStatisticsReportString)
+ 		openLabel: 'VM Statistics'!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') -----
  toolsMenuOn: aDockingBar 
  
  	aDockingBar addItem: [ :item |
  		item
  			contents: 'Tools' translated;
  			addSubMenu: [ :menu | 
  				self
  					browserMenuItemOn: menu;
  					workspaceMenuItemOn: menu;
  					transcriptMenuItemOn: menu;
  					testRunnerMenuItemOn: menu.
  				menu addLine.
  				self 
  					monticelloBrowserMenuItemOn: menu;
+ 					monticelloConfigurationsMenuItemOn: menu;
+ 					simpleChangeSorterMenuItemOn: menu;
+ 					dualChangeSorterMenuItemOn: menu.
+ 				menu addLine.
+ 				self
+ 					processBrowserMenuItemOn: menu;
+ 					preferenceBrowserMenuItemOn: menu;
+ 					fileListMenuItemOn: menu.
+ 			] ]!
- 					fileListMenuItemOn: menu ] ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') -----
+ extrasMenuOn: aDockingBar 
+ 
+ 	aDockingBar addItem: [ :it|
+ 		it 	contents: 'Extras' translated;
+ 			addSubMenu: [:menu|
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Recover Changes' translated;
+ 						help: 'Recover changes after a crash' translated;
+ 						icon: MenuIcons smallHelpIcon;
+ 						target: ChangeList;
+ 						selector: #browseRecentLog].
+ 				menu addLine.
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Set Author Initials' translated;
+ 						help: 'Sets the author initials' translated;
+ 						target: Utilities;
+ 						selector: #setAuthorInitials].
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Restore Display (r)' translated;
+ 						help: 'Redraws the entire display' translated;
+ 						target: World;
+ 						selector: #restoreMorphicDisplay].
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Rebuild Menus' translated;
+ 						help: 'Rebuilds the menu bar' translated;
+ 						target: TheWorldMainDockingBar;
+ 						selector: #updateInstances].
+ 				menu addLine.
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Start Profiler' translated;
+ 						help: 'Starts the profiler' translated;
+ 						target: self;
+ 						selector: #startMessageTally].
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'Collect Garbage' translated;
+ 						help: 'Run the garbage collector and report space usage' translated;
+ 						target: Utilities;
+ 						selector: #garbageCollectAndReport].
+ 				menu addItem:[:item|
+ 					item
+ 						contents: 'VM statistics' translated;
+ 						help: 'Virtual Machine information' translated;
+ 						target: self;
+ 						selector: #vmStatistics].
+ 			] ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>preferenceBrowserMenuItemOn: (in category 'submenu - tools') -----
+ preferenceBrowserMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Preferences' translated;
+ 			help: 'Open a Preferences Browser' translated;
+ 			icon: (self colorIcon: PreferenceBrowser basicNew defaultBackgroundColor);
+ 			target: PreferenceBrowser;
+ 			selector: #open ]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
  menusOn: aDockingBar 
  
  	self 
  		squeakMenuOn: aDockingBar;
  		projectsMenuOn: aDockingBar;
  		toolsMenuOn: aDockingBar;
+ 		extrasMenuOn: aDockingBar;
  		windowsMenuOn: aDockingBar;
  		helpMenuOn: aDockingBar!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>dualChangeSorterMenuItemOn: (in category 'submenu - tools') -----
+ dualChangeSorterMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Dual Change Sorter' translated;
+ 			help: 'Open a Dual Change Sorter' translated;
+ 			icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor);
+ 			target: DualChangeSorter;
+ 			selector: #open ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>processBrowserMenuItemOn: (in category 'submenu - tools') -----
+ processBrowserMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Process Browser' translated;
+ 			help: 'Open a Process Browser' translated;
+ 			icon: (self colorIcon: ProcessBrowser basicNew defaultBackgroundColor);
+ 			target: ProcessBrowser;
+ 			selector: #open ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>monticelloConfigurationsMenuItemOn: (in category 'submenu - tools') -----
+ monticelloConfigurationsMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Monticello Configurations' translated;
+ 			help: 'Open a Monticello Configurations Editor' translated;
+ 			icon: (self colorIcon: MCConfigurationBrowser basicNew defaultBackgroundColor);
+ 			target: MCConfigurationBrowser;
+ 			selector: #open ]!