[squeak-dev] The Inbox: ToolBuilder-Morphic-cbc.271.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 11 18:15:52 UTC 2021


A new version of ToolBuilder-Morphic was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-cbc.271.mcz

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

Name: ToolBuilder-Morphic-cbc.271
Author: cbc
Time: 11 January 2021, 10:15:51.0644 am
UUID: 76f9fb95-5700-1b43-a9af-9ab88aaa890f
Ancestors: ToolBuilder-Morphic-mt.270

Let the width of List Chooser try to accomodate better to the actual size of the string.

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

Item was changed:
  ----- Method: ListChooser>>initialExtent (in category 'building') -----
  initialExtent
+ 	| listFont itemCount width |
- 
- 	| listFont itemCount maxItemSize cellSize |
  	listFont := Preferences standardListFont.
  	itemCount := items size.
+ 	width := ((items take: 15) collect: [:item| listFont widthOfString: item]) max.
+ 	^ (width min: (self currentWorld extent x * 0.75) asInteger max:  ((listFont widthOf: $m) * 12))
+ 		@ ((itemCount min: 15 max: 5) * listFont height + self searchBarHeight)	
+ !
- 	maxItemSize := items inject: 0 into: [:max :item | max max: item size].
- 	cellSize := (listFont widthOf: $m) @ listFont height.
- 	
- 	^ ((maxItemSize + 1 "breathing space" min: 20 max: 10)
- 		@ (itemCount + 1 "breathing space" min: 15 max: 5)
- 		* cellSize) + (0@ self searchBarHeight)!



More information about the Squeak-dev mailing list