Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2128.mcz
==================== Summary ====================
Name: Morphic-ct.2128 Author: ct Time: 29 August 2023, 7:45:00.722934 pm UUID: a9707281-add6-094c-a018-2cd2e39be9b8 Ancestors: Morphic-mt.2127
Proposal: Adds "collapse all like this" and "collapse all but this" items to windows's menu in docking bar.
=============== Diff against Morphic-mt.2127 ===============
Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsBut: (in category 'submenu - windows') ----- + collapseAllWindowsBut: window + (self allOtherWindowsLike: window) do: [:each | + each collapse]!
Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsLike: (in category 'submenu - windows') ----- + collapseAllWindowsLike: window + self collapseAllWindowsBut: window. + window collapse!
Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu menu addItem: [ :item | item contents: 'Close' translated ; target: window; selector: #delete ]; addItem: [ :item | item contents: 'Close all like this' translated ; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Close all but this' translated ; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; + addLine; addItem: [ :item | + item + contents: 'Collapse all like this' translated ; + target: self; + selector: #collapseAllWindowsLike:; + arguments: { window } ]; + addItem: [ :item | + item + contents: 'Collapse all but this' translated ; + target: self; + selector: #collapseAllWindowsBut:; + arguments: { window } ]; + addLine; + addItem: [ :item | item contents: 'Expand or Contract' translated ; target: window; selector: #expandBoxHit ]!
packages@lists.squeakfoundation.org