DEFINITION MODULE HDDisplay;

FROM SYSTEM    IMPORT ADDRESS;

FROM Exec      IMPORT UByte;

FROM Graphics  IMPORT RastPortPtr;

FROM Intuition IMPORT WindowPtr, Gadget;

(*------  TYPEs:  ------*)

TYPE
  gadgets = (HDGadg, DiskGadg, SaveAllGadg, RegardArchivedGadg,
             SetArchivedGadg, StartGadg, BackUpGadg, RestoreGadg);
  ReqResults = (Retry, Continue, Cancel);

(*------  Variables:  ------*)

VAR
  Window: WindowPtr;
  Gadgets: ARRAY gadgets OF Gadget;
  RP: RastPortPtr;
  HDName: ARRAY[0..255] OF CHAR;
  DriveName: ARRAY[0..5] OF CHAR;

(*------  Type Text:  ------*)

PROCEDURE Type(x,y: INTEGER; String: ARRAY OF CHAR);

(*---------------------  Redraw Window:  ----------------------------------*)

PROCEDURE Redraw();

(*-------------------------  Open Window:  --------------------------------*)

PROCEDURE OpenDisplay();

(*---------------------------  Requester:  --------------------------------*)

PROCEDURE HDRequest(What: ADDRESS;
                    col0,col1: UByte;
                    retry: BOOLEAN): ReqResults;

END HDDisplay.