| 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.