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

StandardSystemView subclass: #CounterTextView
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC tutorial'!

!CounterTextView methodsFor: 'controller access'!
defaultControllerClass
	^CounterKeyboardController! !


!CounterTextView methodsFor: 'updating'!
update: anAspect
	Transcript cr; show: 'now update'.
	self displayView.! !


!CounterTextView methodsFor: 'displaying'!
displayView
	| countStr text displayText |
	super displayView.
	self clearInside.
	countStr := self model data printString.
	text := Text string:  countStr attribute: (TextEmphasis bold).
	displayText := text asDisplayText.
	displayText foregroundColor: Color black backgroundColor: Color white.
	displayText displayAt: self insetDisplayBox center
! !