Model subclass:#ValueModel 
	 instanceVariableNames:'accepted'
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Interface-Support'
!

!ValueModel class methodsFor:'instance creation'!

new
    ^ (super new) initialize
! !

!ValueModel methodsFor:'initialization'!

initialize
    accepted := false
! !

!ValueModel methodsFor:'accessing'!

accept
    accepted := true
!

value 
    self subclassResponsibility
!

setValue:newValue 
    self subclassResponsibility
!

value:anObject
    |oldValue|

    oldValue := self value.
    self setValue:anObject.
    anObject ~= oldValue ifTrue:[
	self changed:#value
    ]
! !