'From Squeak3.8gamma of ''24 November 2004'' [latest update: #6662] on 13 May 2005 at 10:16:50 am'!

!CPainter methodsFor: 'initialize' stamp: 'tak 5/13/2005 10:04'!
setupCostume
	| col |
	super setupCostume.

	fillStyle _ #none.

	board border style _ #simple.
	board border width _ 1.
	board border color _ Color black.

	buttons hResizing _ #spaceFill.

	col _ CPlayer new.
	col name: 'TableLayoutColumn'.
	col border style _ #simple.
	col border width _ 1.
	col border color _ Color black.
	col layout _ CTableLayout new.
	col layout listDirection _ #topToBottom.
	col hResizing _ #spaceFill.
	col vResizing _ #spaceFill.

	board vResizing: #spaceFill.
	board hResizing: #spaceFill.

	col add: board.
	col add: buttons.
	
	layout _ CTableLayout new.
	layout cellPositioning _ #topRight.
	layout listDirection _ #leftToRight.
	layout hResizing _ #shrinkWrap.
	layout vResizing _ #shrinkWrap.

	self add: palette.
	self add: col.

	palette board: board.
	buttons painter: self.! !


!CPainterBoard methodsFor: 'events' stamp: 'tak 5/13/2005 10:14'!
onExtentChanged
	<on: extentChanged>
	painting _ painting
				copy: (0 @ 0 extent: self extent)! !