ValueModel subclass:#ValueHolder 
	 instanceVariableNames:'value changeMsg changeReceiver'
	 classVariableNames:''
	 poolDictionaries:''
	 category:'ST80-Compatibility'
!

!ValueHolder class methodsFor:'instance creation'!

with:anObject
    ^ (super new) value:anObject
!

newString
    ^ self with:''
!

newBoolean
    ^ self with:false
! !

!ValueHolder methodsFor:'accessing'!

onChangeSend:selector to:someone
    changeMsg := selector.
    changeReceiver := someone
!

value:anObject
    |oldValue|

    oldValue := value.
    value := anObject.
    self changed:#value.
    changeReceiver notNil ifTrue:[
	changeMsg notNil ifTrue:[
	    changeReceiver perform:changeMsg
	]
    ]
!

value
    ^ value
! !