Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2145.mcz
==================== Summary ====================
Name: Morphic-mt.2145 Author: mt Time: 4 December 2023, 9:10:32.014721 am UUID: e96bb924-174b-e244-9121-10ca92e1bb6b Ancestors: Morphic-ct.2144
In docking-bar menu's window-menu, adds icon for (older) close operations to better disinguish them besides the (newer) collapse/expand operations...assuming that "close" is the more frequently used one because of it being there for longer.
Note that having an icon for every menu item works against that pre-attentive effect of finding more quickly what you are looking for. This also works for, e.g., "one item below the one with that icon". Thus, no need for every entry in a menu to have an icon. Thus, only an icon for the close-operation, not collapse/expand, even though we have icons for that as well. Let's hope that this is a useful trade-off. :-)
=============== Diff against Morphic-ct.2144 ===============
Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu + + | closeBox closeBoxWidth | + closeBox := SystemWindow closeBoxImage. + closeBoxWidth := closeBox width. + menu addItem: [ :item | item contents: 'Close' translated ; + icon: closeBox; target: window; selector: #closeBoxHit ]; addItem: [ :item | item contents: 'Expand (or contract)' translated ; + icon: (MenuIcons blankIconOfWidth: closeBoxWidth); target: window; selector: #expandBoxHit ]; addItem: [ :item | item contents: 'Collapse (or expand)' translated ; + icon: (MenuIcons blankIconOfWidth: closeBoxWidth); target: window; selector: #collapseOrExpand ]; addLine; addItem: [ :item | item contents: 'Close all like this' translated ; + icon: closeBox; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Close all but this' translated ; + icon: (MenuIcons blankIconOfWidth: closeBoxWidth); target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; addLine; addItem: [ :item | item contents: 'Collapse all like this' translated ; + icon: (MenuIcons blankIconOfWidth: closeBoxWidth); target: self; selector: #collapseAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Collapse all but this' translated ; + icon: (MenuIcons blankIconOfWidth: closeBoxWidth); target: self; selector: #collapseAllWindowsBut:; arguments: { window } ]!
packages@lists.squeakfoundation.org