A new version of ToolBuilder-Morphic was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Morphic-cbc.270.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-cbc.270 Author: cbc Time: 8 January 2021, 11:27:47.8204 am UUID: abbbeb8a-9a8b-ef4a-b6a9-051b55cc2d5b Ancestors: ToolBuilder-Morphic-mt.269
Set the initial extent of the ListChooser to not require resizing the dialog for reasonable sized lists (i.e., expand it so you can see all of the list). At the small end, still object MT's suggested size; at the large end, will not take up more the 3/4ths of the world size.
=============== Diff against ToolBuilder-Morphic-mt.269 ===============
Item was changed: ----- Method: ListChooser>>initialExtent (in category 'building') ----- initialExtent + | listFont width height | - - | listFont | listFont := Preferences standardListFont. + width := (items collect: [:item| listFont widthOfString: item]) max + 20 "Acutal size of items plus dialog buffer left/right" + max: (20 * (listFont widthOf: $m)). "but we want a not-too-small box as well" + height := ((items size max: 15) * listFont height) + 40. "for various other stuff in dialog above/below list" + "But, don't use the whole world." + width := width min: (self currentWorld extent x * 0.75) asInteger. + height := height min: (self currentWorld extent y * 0.75) asInteger. + ^ width@height! - ^ (20 * (listFont widthOf: $m))@(15 * listFont height)!