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

Model subclass: #Counter
	instanceVariableNames: 'data '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC tutorial'!
Counter class
	instanceVariableNames: ''!


!Counter methodsFor: 'accessing'!
data: anInteger
	data := anInteger.
	self changed: #data!
data
	^data! !

!Counter methodsFor: 'actions'!
increase
	self data: self data + 1.!
decrease
	self data: self data - 1.! !

!Counter methodsFor: 'initialize-release'!
initialize
	data := 0! !

!Counter class methodsFor: 'instance creation'!
new
	^super new initialize! !