home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1545.dms / in.adf / KwikBackUp / Source / HDDisplay.def < prev    next >
Encoding:
Modula Definition  |  1990-03-25  |  1.0 KB  |  46 lines
  1. DEFINITION MODULE HDDisplay;
  2.  
  3. FROM SYSTEM    IMPORT ADDRESS;
  4.  
  5. FROM Exec      IMPORT UByte;
  6.  
  7. FROM Graphics  IMPORT RastPortPtr;
  8.  
  9. FROM Intuition IMPORT WindowPtr, Gadget;
  10.  
  11. (*------  TYPEs:  ------*)
  12.  
  13. TYPE
  14.   gadgets = (HDGadg, DiskGadg, SaveAllGadg, RegardArchivedGadg,
  15.              SetArchivedGadg, StartGadg, BackUpGadg, RestoreGadg);
  16.   ReqResults = (Retry, Continue, Cancel);
  17.  
  18. (*------  Variables:  ------*)
  19.  
  20. VAR
  21.   Window: WindowPtr;
  22.   Gadgets: ARRAY gadgets OF Gadget;
  23.   RP: RastPortPtr;
  24.   HDName: ARRAY[0..255] OF CHAR;
  25.   DriveName: ARRAY[0..5] OF CHAR;
  26.  
  27. (*------  Type Text:  ------*)
  28.  
  29. PROCEDURE Type(x,y: INTEGER; String: ARRAY OF CHAR);
  30.  
  31. (*---------------------  Redraw Window:  ----------------------------------*)
  32.  
  33. PROCEDURE Redraw();
  34.  
  35. (*-------------------------  Open Window:  --------------------------------*)
  36.  
  37. PROCEDURE OpenDisplay();
  38.  
  39. (*---------------------------  Requester:  --------------------------------*)
  40.  
  41. PROCEDURE HDRequest(What: ADDRESS;
  42.                     col0,col1: UByte;
  43.                     retry: BOOLEAN): ReqResults;
  44.  
  45. END HDDisplay.
  46.