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

Object subclass: #Account
	instanceVariableNames: 'id money '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'BankApplication'!

!Account methodsFor: 'initializing'!
initialize
	id := 0.
	money := 0.
! !


!Account methodsFor: 'accessing'!
id: newId
	id := newId! !


!Account methodsFor: 'services'!
deposit: newMoney
	money := money + newMoney.
! !

!Account methodsFor: 'services'!
getBalance
	^money! !

!Account methodsFor: 'services'!
withdraw: newMoney
	money := money - newMoney.
! !

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

Account class
	instanceVariableNames: 'idCount '!

!Account class methodsFor: 'class initialization'!
initialize
	idCount := 0! !


!Account class methodsFor: 'instance creation'!
new
	idCount := idCount + 1.
	^super new initialize;
		 id: idCount! !


Account initialize!