home *** CD-ROM | disk | FTP | other *** search
/ Chestnut's Multimedia Mania / MM_MANIA.ISO / graphics / paintoop / cobject.pas < prev    next >
Pascal/Delphi Source File  |  1989-09-30  |  440b  |  28 lines
  1. {$B-,F-,I+,R+}
  2.  
  3. unit CObject;
  4.  
  5. { Define TObject - the base class for all classes }
  6.  
  7. { Copyright 1989
  8.   Scott Bussinger
  9.   110 South 131st Street
  10.   Tacoma, WA  98444
  11.   (206)531-8944
  12.   Compuserve 72247,2671 }
  13.  
  14. interface
  15.  
  16. type TObject = object
  17.        destructor Done; virtual;                 { Release any object }
  18.        end;
  19.  
  20. implementation
  21.  
  22. destructor TObject.Done;
  23.   { Release any object }
  24.   begin
  25.   end;
  26.  
  27. end.
  28.