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

StandardSystemController subclass: #CounterKeyboardController
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC tutorial'!

!CounterKeyboardController methodsFor: 'control activity'!
controlActivity
	| key |
	super controlActivity.
	key := self sensor keyboard.
	key == $u ifTrue: [self model increase].
	key == $d ifTrue: [self model decrease].! !