ValueHolderWithRememberedPreviousValue.st
changeset 3271 2a9459856e15
parent 3263 b241e138a21f
equal deleted inserted replaced
3270:30cc4b548ca8 3271:2a9459856e15
    43 "
    43 "
    44 ! !
    44 ! !
    45 
    45 
    46 !ValueHolderWithRememberedPreviousValue methodsFor:'accessing'!
    46 !ValueHolderWithRememberedPreviousValue methodsFor:'accessing'!
    47 
    47 
       
    48 previousValue
       
    49     ^ previousValue
       
    50 !
       
    51 
    48 setValue:anObject
    52 setValue:anObject
    49     "set my value without notification."
    53     "set my value without notification."
    50 
    54 
    51     previousValue := value.
    55     previousValue := value.
    52     value := anObject.
    56     value := anObject.
    53 ! !
    57 ! !
    54 
    58 
    55 !ValueHolderWithRememberedPreviousValue class methodsFor:'documentation'!
    59 !ValueHolderWithRememberedPreviousValue class methodsFor:'documentation'!
    56 
    60 
    57 version
    61 version
    58     ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithRememberedPreviousValue.st,v 1.1 2014-01-13 13:06:58 cg Exp $'
    62     ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithRememberedPreviousValue.st,v 1.2 2014-01-13 13:40:04 cg Exp $'
    59 !
    63 !
    60 
    64 
    61 version_CVS
    65 version_CVS
    62     ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithRememberedPreviousValue.st,v 1.1 2014-01-13 13:06:58 cg Exp $'
    66     ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithRememberedPreviousValue.st,v 1.2 2014-01-13 13:40:04 cg Exp $'
    63 ! !
    67 ! !
    64 
    68