.
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
]
! !