ValueModel.st
changeset 114 e577a2f332d0
parent 96 948318b2fbd4
child 125 fa5b5e4336bf
equal deleted inserted replaced
113:465cc202f0fe 114:e577a2f332d0
    34  hereby transferred.
    34  hereby transferred.
    35 "
    35 "
    36 !
    36 !
    37 
    37 
    38 version
    38 version
    39 "
    39     ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.11 1995-11-11 16:05:28 cg Exp $'
    40 $Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.10 1995-08-29 17:45:21 claus Exp $
       
    41 "
       
    42 !
    40 !
    43 
    41 
    44 documentation
    42 documentation
    45 "
    43 "
    46     abstract superclass for ValueHolders and Adaptors.
    44     abstract superclass for ValueHolders and Adaptors.
   152     interrest isNil ifTrue:[
   150     interrest isNil ifTrue:[
   153 	interrest := IdentityDictionary new
   151 	interrest := IdentityDictionary new
   154     ].
   152     ].
   155     interrest at:someone put:selector
   153     interrest at:someone put:selector
   156 ! !
   154 ! !
   157