1 "

     2  COPYRIGHT (c) 1992-93 by Claus Gittinger

     3               All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

     6  only in accordance with the terms of that license and with the

     7  inclusion of the above copyright notice.   This software may not

     8  be provided or otherwise made available to, or used by, any

     9  other person.  No title to or ownership of the software is

    10  hereby transferred.

    11 "

    12 

    13 Link subclass:#ValueLink

    14        instanceVariableNames:'value'

    15        classVariableNames:''

    16        poolDictionaries:''

    17        category:'Collections-Support'

    18 !

    19 

    20 ValueLink comment:'

    21 

    22 COPYRIGHT (c) 1992-93 by Claus Gittinger

    23               All Rights Reserved

    24 

    25 this class provides Links which can hold a value.

    26 

    27 %W% %E%

    28 '!

    29 

    30 !ValueLink methodsFor:'accessing'!

    31 

    32 value

    33     "return the Links contents"

    34 

    35     ^ value

    36 !

    37 

    38 value:anObject

    39     "set the Links contents"

    40 

    41     value := anObject

    42 ! !