"Happy Squeaking Sample(14)"
"Copyright (C) 1999 OGIS-RI"


Object subclass: #CounterLauncher
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC tutorial'!

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

CounterLauncher class
	instanceVariableNames: 'counter '!

!CounterLauncher class methodsFor: 'class initialization'!
initialize
	counter := Counter new! !


!CounterLauncher class methodsFor: 'actions'!
launchBy: aCounterView
	aCounterView model: self counter.
	aCounterView label: aCounterView name.
	aCounterView maximumSize: 200 @ 100.
	aCounterView minimumSize: 50 @ 30.
	aCounterView borderWidth: 5.
	aCounterView backgroundColor: Color yellow.
	aCounterView controller open.! !


!CounterLauncher class methodsFor: 'accessing'!
counter
	^counter! !

!CounterLauncher class methodsFor: 'accessing'!
counter: aCounter
	counter := aCounter! !


CounterLauncher initialize!