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


Object subclass: #CoffeePot
	instanceVariableNames: 'temperature quantity '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Dependency tutorial'!

!CoffeePot methodsFor: 'accessing'!
quantity
	^quantity! !

!CoffeePot methodsFor: 'accessing'!
quantity: anInteger
	quantity := anInteger.
	self changed: #quantity.! !

!CoffeePot methodsFor: 'accessing'!
temperature
	^temperature! !

!CoffeePot methodsFor: 'accessing'!
temperature: anInteger
	temperature := anInteger.
	self changed: #temperature.! !


Object subclass: #TemperatureAlarm
	instanceVariableNames: 'target '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Dependency tutorial'!

!TemperatureAlarm methodsFor: 'updating'!
update: anAspect 
	anAspect == #temperature
		ifTrue: 
			[Transcript cr; show: 'Temperature is '.
			Transcript show: self target temperature printString].! !


!TemperatureAlarm methodsFor: 'accessing'!
target
	^target! !

!TemperatureAlarm methodsFor: 'accessing'!
target: anObject
	target := anObject! !