Hi, all.
Update your Trunk image and try this:
| model view | model := SystemNavigation default allClasses collect: #name.
view := PluggableListMorph on: model list: #yourself selected: nil changeSelected: nil.
view extent: 200@300. view listFilterSet: 'Hand'.
view openInHand.
"Play around with horizontal alignment." view listMorph cellPositioning: #leftCenter. view listMorph cellPositioning: #center. view listMorph cellPositioning: #rightCenter.
"Play around with margins." view listMorph cellInset: 0. view listMorph cellInset: 3@0. view listMorph cellInset: (10@5 corner: 10@5). view listMorph cellInset: (0@ -1 corner: 0 @ -1).
"Fit all contents." view listMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never.
Best, Marcel
