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 Object subclass:#Link

    14        instanceVariableNames:'nextLink'

    15        classVariableNames:''

    16        poolDictionaries:''

    17        category:'Collections-Support'

    18 !

    19 

    20 Link comment:'

    21 

    22 COPYRIGHT (c) 1992-93 by Claus Gittinger

    23               All Rights Reserved

    24 

    25 this class provides the basic functionality for Link-nodes.

    26 Links are abstract in that they do not provide a place for storing something,

    27 just the link-chain. For more usability look at ValueLink.

    28 

    29 %W% %E%

    30 '!

    31 

    32 !Link methodsFor:'accessing'!

    33 

    34 nextLink

    35     "return the next link"

    36 

    37     ^ nextLink

    38 !

    39 

    40 nextLink:aLink

    41     "set the next link"

    42 

    43     nextLink := aLink

    44 ! !