home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / dobject / inherit.do < prev    next >
Encoding:
Text File  |  1991-07-23  |  303 b   |  14 lines
  1. /*
  2.     demonstrate inheritance of a base class
  3. */
  4. inherit(Int,Myint,[]);
  5.  
  6. /*
  7.     demo
  8. */
  9. v = new(Myint,1);
  10. ? "v is ",v;        % inherit the asString method from Int
  11. ? "v + 1 = ",v+1;    % inherit the + operator from Int
  12. ? "v - 1 = ",v-1;    % inherit the - operator from Int
  13. ? "parent of v is ",parent(v);
  14.