home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / OOModules / txt / Requesters.def < prev    next >
Text File  |  1996-05-17  |  679b  |  25 lines
  1. DEFINITION MODULE Requesters;
  2.  
  3. (* Copyright (C) 1996 by Marcel Timmermans *)
  4.  
  5. (* A example of a Filerequester object *)
  6.  
  7. FROM SYSTEM IMPORT ADDRESS;
  8. FROM Objects IMPORT TObject;
  9. IMPORT rt:ReqTools;
  10.  
  11. TYPE
  12.  TFileListBox = CLASS(TObject)
  13.                  FDir,FTitle,win:ADDRESS;
  14.                  FName:ARRAY[0..255] OF CHAR;
  15.                  filereq:rt.FileRequesterPtr;
  16.                  x,y:INTEGER;
  17.                  CONSTRUCTOR Init;
  18.                  PROCEDURE Do(save:BOOLEAN):BOOLEAN;
  19.                  PROCEDURE GetName(VAR str:ARRAY OF CHAR);
  20.                  PROCEDURE GetPath(VAR path:ARRAY OF CHAR);
  21.                  DESTRUCTOR Done;
  22.                 END; 
  23.  
  24. END Requesters.
  25.