Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.292.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-mt.292
Author: mt
Time: 3 February 2022, 5:14:01.689252 pm
UUID: 9e44876c-0f30-4844-a9fe-55f0c4faae18
Ancestors: ToolBuilder-Morphic-mt.291

Fixes regression in list-chooser dialogs, which are not only for lists of strings but actual objects.

Thanks to David O'Toole for reporting this!

=============== Diff against ToolBuilder-Morphic-mt.291 ===============

Item was changed:
  ----- Method: ListChooser>>initialExtent (in category 'building') -----
  initialExtent
  
  	| listFont itemCount maxItemSize cellSize |
  	listFont := Preferences standardListFont.
  	itemCount := items size.
+ 	maxItemSize := items inject: 0 into: [:max :item | max max: item asString size].
- 	maxItemSize := items inject: 0 into: [:max :item | max max: item size].
  	cellSize := (listFont widthOf: $m) @ listFont height.
  	
  	^ ((maxItemSize min: 20 max: 10)
  		@ (itemCount min: 15 max: 5)
  		* cellSize) + (0@ self searchBarHeight)!

Item was changed:
  ----- Method: ListMultipleChooser>>initialExtent (in category 'toolbuilder') -----
  initialExtent
  
  	| listFont itemCount maxItemSize cellSize |
  	listFont := Preferences standardListFont.
  	itemCount := labels size.
+ 	maxItemSize := labels inject: 0 into: [:max :item | max max: item asString size].
- 	maxItemSize := labels inject: 0 into: [:max :item | max max: item size].
  	cellSize := (listFont widthOf: $m) @ listFont height.
  	
  	^ ((maxItemSize min: 20 max: 10)
  		@ (itemCount min: 15 max: 5)
  		* cellSize)!