"Happy Squeaking Sample(5)"
"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: 'services'!
deposit: newMoney
	money := money + newMoney.
! !

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

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