"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
ValueModel subclass:#ValueHolder
instanceVariableNames:'value'
classVariableNames:''
poolDictionaries:''
category:'Interface-Support-Models'
!
!ValueHolder class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
version
"
$Header: /cvs/stx/stx/libview2/Attic/ValHolder.st,v 1.8 1995-08-29 17:45:16 claus Exp $
"
!
documentation
"
a valueHolder can be used as a model for editFields, buttons etc.
It stores some value internally, and sends update messages to its
dependents when changed.
Notice: this class was implemented using protocol information
from alpha testers - it may not be complete or compatible to
the corresponding ST-80 class. If you encounter any incompatibilities,
please forward a note to the ST/X team.
"
!
examples
"
edit strings:
|firstName lastName dialog|
firstName := ValueHolder newString.
lastName := ValueHolder newString.
dialog := Dialog new.
(dialog addTextLabel:'Name:') adjust:#left.
dialog addInputFieldOn:firstName.
dialog addVerticalSpace.
(dialog addTextLabel:'Address:') adjust:#left.
dialog addInputFieldOn:lastName.
dialog addAbortButton; addOkButton.
dialog open.
dialog accepted ifTrue:[
Transcript show:firstName value; show:' '; showCr:lastName value
]
"
! !
!ValueHolder class methodsFor:'instance creation'!
with:anObject
"return a new ValueHolder holding anObject as initial value"
^ (super new) setValue:anObject
!
newString
"return a new ValueHolder holding an empty string as initial value"
^ self with:''
!
newBoolean
"return a new ValueHolder holding false as initial value"
^ self with:false
!
newNumber
"return a new ValueHolder holding 0 as initial value"
^ self with:0
!
newFraction
"return a new ValueHolder holding 0.0 as initial value.
The name is somewhat missleading - actually it should be called newFloat."
^ self with:0.0
! !
!ValueHolder methodsFor:'accessing'!
setValue:anObject
"set my value without notification."
value := anObject.
!
value
"return my value"
^ value
! !