| window pane board background scaler|

background := AlphaImageMorph withForm: 
	(ZnEasy getJpeg: 'http://i.imgur.com/K1QR9vA.jpg').
background lock.

board := PasteUpMorph new.
board 
color: Color gray;
borderWidth: 3;
borderColor: Color black;
extent: 2000@2000; 
backgroundMorph: background;
addMorph: (CircleMorph new color: Color cyan; position: 41@23; yourself);
addMorph: (Morph new color: Color orange; position: 1200@1200; yourself).

scaler := TransformMorph new.
scaler extent: 1000@1000.
scaler scale: 0.5@0.5.
scaler addMorph: board.

pane := ScrollPane new.
pane scroller addMorph: scaler.

window := pane openInWindow.
window position: 20@20; extent: 420@420.