View subclass: #TV 
   View  
  instanceVariableNames: ''
  TV methodsFor: 'updating'
  update: aValue
       Transcript show: 'ok'; cr .
  TV class
  instanceVariableNames: ''
  TV class methodsFor: 'instance creation'
       open: aCtr
  	self new model: aCtr