scrollpane := GeneralScrollPane new.
scrollpane changeScrollerTableLayout.
pane := PanelMorph new
		fillStyle: Color transparent;
		hResizing: #spaceFill;
		vResizing: #shrinkWrap;
		changeTableLayout;
		layoutInset: 2;
		cellInset: 2;
		yourself.

scrollpane scrollTarget: pane.

Collection selectors do: [:each | 
	textMorph := TextMorph new
			contentsWrapped: (Collection sourceCodeAt: each);
			hResizing: #spaceFill;
			vResizing: #shrinkWrap;
			borderWidth: 1.
	pane addMorph: textMorph ].

scrollpane openInWindow