home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d563 / reqlibrary.lha / ReqLibrary / ReqSupport.mod < prev    next >
Text File  |  1991-11-20  |  2KB  |  62 lines
  1. IMPLEMENTATION MODULE ReqSupport;
  2.  
  3. IMPORT rd: ReqD,
  4.        rl: ReqL,
  5.        SYSTEM;
  6.  
  7.  
  8. VAR textR : rd.TRStructure;
  9.  
  10.  
  11. PROCEDURE SimpleRequest(string       : ARRAY OF CHAR;
  12.                         parameterlist: SYSTEM.ADDRESS);
  13.  
  14.    BEGIN
  15.       textR.text          := SYSTEM.ADR(string);
  16.       textR.controls      := parameterlist;
  17.       textR.window        := NIL;
  18.       textR.middleText    := NIL;
  19.       textR.positiveText  := NIL;
  20.       textR.negativeText  := SYSTEM.ADR("Resume");
  21.       textR.title         := SYSTEM.ADR("okay?");
  22.       textR.keyMask       := {0..15};
  23.       textR.textcolor     := 1;
  24.       textR.detailcolor   := 0;
  25.       textR.blockcolor    := 0;
  26.       textR.versionnumber := rl.reqVersion;
  27.       textR.timeout       := 10;
  28.       textR.abortMask     := SYSTEM.LONGSET{};
  29.       textR.rfu1          := 0;
  30.       IF (rl.TextRequest(SYSTEM.ADR(textR)) = 0)
  31.          THEN
  32.       END; (* IF *)
  33.    END SimpleRequest;
  34.  
  35.  
  36. PROCEDURE TwoGadRequest(string       : ARRAY OF CHAR;
  37.                         parameterlist: SYSTEM.ADDRESS): INTEGER;
  38.  
  39. VAR result: INTEGER;
  40.  
  41.    BEGIN
  42.       textR.text          := SYSTEM.ADR(string);
  43.       textR.controls      := parameterlist;
  44.       textR.window        := NIL;
  45.       textR.middleText    := NIL;
  46.       textR.positiveText  := SYSTEM.ADR("  Ok  ");
  47.       textR.negativeText  := SYSTEM.ADR("Cancel");
  48.       textR.title         := SYSTEM.ADR("okay?");
  49.       textR.keyMask       := {0..15};
  50.       textR.textcolor     := 1;
  51.       textR.detailcolor   := 0;
  52.       textR.blockcolor    := 0;
  53.       textR.versionnumber := rl.reqVersion;
  54.       textR.timeout       := 10;
  55.       textR.abortMask     := SYSTEM.LONGSET{};
  56.       textR.rfu1          := 0;
  57.       result:=rl.TextRequest(SYSTEM.ADR(textR));
  58.       RETURN(result);
  59.    END TwoGadRequest;
  60.  
  61. END ReqSupport.
  62.