The Inbox: Morphic-kfr.1455.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Morphic-kfr.1455.mcz

commits-2
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-kfr.1455.mcz

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

Name: Morphic-kfr.1455
Author: kfr
Time: 24 June 2018, 3:12:07.241337 pm
UUID: 4fc1720e-17d6-b047-8ac3-3720c5d36092
Ancestors: Morphic-cmm.1454

Add MessageNames to TheWorldDockingBar Tools menu
Add Collapse all windows to TheWorldDockingBar Windows menu

=============== Diff against Morphic-cmm.1454 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') -----
  listWindowsOn: menu
 
  | windows |
  windows := self allVisibleWindows sorted: [:winA :winB |
  ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name])
  ifTrue: [winA label < winB label]
  ifFalse: [winA model name < winB model name]].
  windows ifEmpty: [
  menu addItem: [ :item |
  item
  contents: 'No Windows' translated;
  isEnabled: false ] ].
  windows do: [ :each |
  | windowColor |
  windowColor := (each model respondsTo: #windowColorToUse)
  ifTrue: [each model windowColorToUse]
  ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model].
  menu addItem: [ :item |
  item
  contents: (self windowMenuItemLabelFor: each);
  icon: (self colorIcon: windowColor);
  target: each;
  selector: #comeToFront;
  subMenuUpdater: self
  selector: #windowMenuFor:on:
  arguments: { each };
  action: [ each beKeyWindow; expand ] ] ].
  menu
  addLine;
+ add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows;
  add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe;
  addItem: [:item | item
  contents: 'Close all windows without changes';
  target: self;
  icon: MenuIcons smallBroomIcon;
  selector: #closeAllWindows];
  add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>messageNamesMenuItemOn: (in category 'submenu - tools') -----
+ messageNamesMenuItemOn: menu
+
+ menu addItem: [:item |
+ item
+ contents: 'Message Names' translated;
+ help: 'Open the Message Names tool' translated;
+ icon: (self colorIcon: MessageNames basicNew windowColorToUse);
+ target: StandardToolSet;
+ selector: #openMessageNames]!

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;
+ methodFinderMenuItemOn: menu;
+ messageNamesMenuItemOn: menu.
- methodFinderMenuItemOn: menu.
  menu addLine.
  self
  monticelloBrowserMenuItemOn: menu;
  monticelloConfigurationsMenuItemOn: menu;
  simpleChangeSorterMenuItemOn: menu;
  dualChangeSorterMenuItemOn: menu.
  menu addLine.
  self
  processBrowserMenuItemOn: menu;
  preferenceBrowserMenuItemOn: menu;
  fileListMenuItemOn: menu.
  ] ]!