CheapBlock.st
changeset 213 3b56a17534fd
parent 161 ed36169f354d
child 222 85fee82884dd
equal deleted inserted replaced
212:3edd10edefaf 213:3b56a17534fd
    19 
    19 
    20 CheapBlock comment:'
    20 CheapBlock comment:'
    21 COPYRIGHT (c) 1994 by Claus Gittinger
    21 COPYRIGHT (c) 1994 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.2 1994-10-10 03:49:48 claus Exp $
    24 $Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.3 1994-11-28 20:32:35 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !CheapBlock class methodsFor:'documentation'!
    27 !CheapBlock class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.2 1994-10-10 03:49:48 claus Exp $
    45 $Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.3 1994-11-28 20:32:35 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
   102 
   102 
   103     ^ selfValue
   103     ^ selfValue
   104 !
   104 !
   105 
   105 
   106 method
   106 method
   107     "return the receviers home method.
   107     "return the receivers home method.
   108      Thats the method where the block was created."
   108      Thats the method where the block was created."
   109 
   109 
   110     ^ method
   110     ^ method
   111 ! !
   111 ! !
   112 
   112