The Trunk: Morphic-ar.257.mcz

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 ]!