On Sun, 21 Aug 2016, commits at source.squeak.org wrote:

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

Another use of SortedCollection to get rid of after the release. :)

Levente

> + 		((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.!
>
>
>