Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1167.mcz
==================== Summary ====================
Name: System-mt.1167 Author: mt Time: 21 July 2020, 9:04:24.515795 am UUID: 962f538f-4a49-4832-8488-4337395436fc Ancestors: System-mt.1166
In code holders, avoid label contraction in dialogs' buttons that pop up when having to choose a symbol for browsing senders/implementors.
=============== Diff against System-mt.1166 ===============
Item was changed: ----- Method: SystemNavigation>>showMenuOf:withFirstItem:ifChosenDo:withCaption: (in category 'ui') ----- showMenuOf: selectorCollection withFirstItem: firstItem ifChosenDo: choiceBlock withCaption: aCaption + "Show a sorted menu of the given selectors, preceded by firstItem. Use aCaption as the menu title, if it is not nil. Evaluate choiceBlock if a message is chosen." - "Show a sorted menu of the given selectors, preceded by firstItem, and all abbreviated to 40 characters. Use aCaption as the menu title, if it is not nil. Evaluate choiceBlock if a message is chosen."
| index menuLabels sortedList | sortedList := selectorCollection sorted. menuLabels := Array streamContents: + [:strm | strm nextPut: firstItem. + sortedList do: [:sel | strm nextPut: sel]]. - [:strm | strm nextPut: (firstItem contractTo: 40). - sortedList do: [:sel | strm nextPut: (sel contractTo: 40)]]. index := UIManager default chooseFrom: menuLabels lines: #(1). index = 1 ifTrue: [choiceBlock value: firstItem]. index > 1 ifTrue: [choiceBlock value: (sortedList at: index - 1)]!
packages@lists.squeakfoundation.org