home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DO1BETA.ZIP / INHERIT.DO < prev    next >
Text File  |  1991-07-23  |  303b  |  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.