home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / Tutorial / Stepstone_Tutorial / Apple.m < prev    next >
Encoding:
Text File  |  1993-01-19  |  905 b   |  42 lines
  1. /*Objective_C Implementation of the Apple Class: Apple.m*/
  2.  
  3. #import "Apple.h"
  4.  
  5. @implementation Apple
  6.  
  7. //Create a new Apple using the superclass 'new' method
  8. +create{
  9.     id newInstance;         // local variable declaration
  10.  
  11.     newInstance=[self new]; // create new instance
  12.     [newInstance flavor:"Delicious" diameter:3 color:"green"]; // initialize
  13.     return newInstance;     // return the new instance
  14. }
  15.  
  16. //Set the flavor of the instance variable of Apple objects
  17. -flavor:(char*)aFlavor{
  18.     flavor=aFlavor;
  19.     return self;
  20. }
  21.  
  22. //Return the value of the flavor instance variable
  23. -(char*)flavor{
  24.     return flavor;
  25. }
  26.  
  27. // Set all the instance variables in the Apple objects
  28. -flavor:(char*)aFlavor diameter: (int) aSize color:(char*)aColor {
  29.     [self flavor:aFlavor];
  30.     [self diameter:aSize];
  31.     [self color:aColor];
  32.     return self;
  33. }
  34.  
  35. //Tell an Apple to increase its diameter
  36. -grow{
  37.     diameter = diameter+2;
  38.     return self;
  39. }
  40.  
  41. @end
  42.