The Trunk: Morphic-mt.1293.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1293.mcz

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

Name: Morphic-mt.1293
Author: mt
Time: 21 August 2016, 1:50:42.328131 pm
UUID: 898ce70a-0deb-d049-abf1-cf494d533647
Ancestors: Morphic-mt.1292

Fixes list of open windows for windows that do not have a model set.

=============== Diff against Morphic-mt.1292 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') -----
  listWindowsOn: menu
 
  | windows |
  windows := SortedCollection sortBlock: [:winA :winB |
+ ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name])
- winA model name = winB model name
  ifTrue: [winA label < winB label]
  ifFalse: [winA model name < winB model name]].
  windows addAll: self allVisibleWindows.
  windows ifEmpty: [
  menu addItem: [ :item |
  item
  contents: 'No Windows' translated;
  isEnabled: false ] ].
  windows do: [ :each |
  menu addItem: [ :item |
  item
  contents: (self windowMenuItemLabelFor: each);
+ icon: (each model ifNotNil: [self colorIcon: each model windowColorToUse]);
- icon: (self colorIcon: each model defaultBackgroundColor);
  target: each;
  selector: #comeToFront;
  subMenuUpdater: self
  selector: #windowMenuFor:on:
  arguments: { each };
  action: [ each beKeyWindow; expand ] ] ].
  menu
  addLine;
  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.!