[squeak-dev] The Trunk: System-mt.1167.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 21 07:04:28 UTC 2020


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)]!



More information about the Squeak-dev mailing list