home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / sampl254.zip / gcc2 / samples / sample5 / Node.m < prev    next >
Text File  |  1993-11-07  |  381b  |  29 lines
  1.  
  2. // Node.m - comp.lang.objective-c simple sample Objective-C program
  3.  
  4. #import <objc/Object.h>
  5. #import "Node.h"
  6.  
  7. @implementation    Node : Object
  8.  
  9. + new: anItem
  10. {
  11.     self = [super new];
  12.     next = 0;
  13.     data = anItem;
  14.     return self;
  15. }
  16.  
  17. - free
  18. {
  19.     id tmp = data;
  20.     [super free];
  21.     return tmp;
  22. }
  23.  
  24. - next { return next; }
  25.  
  26. - set_next: aNode { next = aNode; return self; }
  27.  
  28. @end
  29.