DEFINITION MODULE ReqL {"req.library",2};

IMPORT E: ExecD,
       I: IntuitionD,
       G: GraphicsD,
       D: DosD,
       S: SYSTEM,
       r: ReqD,
       R;


VAR reqVersion: INTEGER;
    reqBase   : r.ReqLibPtr;

CONST reqName     = "req.library";
      reqMinVersion  = 2;


PROCEDURE Center(VAR nw{R.A0}: I.NewWindow;
                 x{R.D0},y{R.D1}:INTEGER);
   CODE -30;

PROCEDURE SetSize(maxValue{R.D0},viewSize{R.D1}:LONGINT): INTEGER;
   CODE -36;

PROCEDURE SetLocation(maxValue{R.D0},viewSize{R.D1},value{R.D2}:LONGINT): INTEGER;
   CODE -42;

PROCEDURE ReadLocation(maxValue{R.D0},viewSize{R.D1}:LONGINT;potValue{R.D2}:INTEGER): LONGINT;
   CODE -48;

PROCEDURE Format(buffer{R.A2},string{R.A0}: S.ADDRESS;VAR values{R.A1}:S.ADDRESS);
   CODE -54; (* ehemals {R.A0}: ARRAY OF CHAR *)

PROCEDURE FileRequest(filereq{R.A0} :r.ReqFileRequesterPtr): BOOLEAN;
   CODE -84;

PROCEDURE ColorRequester(desiredColor{R.D0}:LONGINT): LONGINT;
   CODE -90;

PROCEDURE DrawBox(rp{R.A1}: G.RastPortPtr;minX{R.D0},minY{R.D1},maxX{R.D2},maxY{R.D3}:LONGINT);
   CODE -96;

PROCEDURE MakeButton(buffer{R.A0}:r.TwoImageGadgetPtr;image{R.A1},image2{R.A2}:S.ADDRESS;width{R.D0},heigth{R.D1},depth{R.D2}:LONGINT);
   CODE -102;

PROCEDURE MakeScrollBar(buffer{R.A0}:r.ScrollBlockPtr;flags{R.D0}:S.LONGSET;size{R.D1},x{R.D2},y{R.D3}:LONGINT);
   CODE -108;

PROCEDURE PurgeFiles(filereq{R.A0}:r.ReqFileRequesterPtr);
   CODE -114;

PROCEDURE MakeGadget(buffer{R.A0}:r.GadgetBlockPtr;string{R.A1}: S.ADDRESS;x{R.D0},y{R.D1}:LONGINT);
   CODE -126;  (* ehemals: {R.A1}: ARRAY OF CHAR *)

PROCEDURE MakeString(buffer{R.A0}:r.StringBlockPtr;stringbuff{R.A1},undobuff{R.A2}: S.ADDRESS;maxwidthbits{R.D0},maxnumchars{R.D1},x{R.D2},y{R.D3}:LONGINT);
   CODE -132;  (* ehemals: {R.A2}: ARRAY OF CHAR *)

PROCEDURE MakeProp(buffer{R.A0}:r.PropBlockPtr;width{R.D0},height{R.D1}:LONGINT;flags{R.D2}:S.LONGSET);
   CODE -138;

PROCEDURE LinkGadget(buffer{R.A0}:r.GadgetBlockPtr;string{R.A1}:S.ADDRESS;VAR nw{R.A3}:I.NewWindow;x{R.D0},y{R.D1}:LONGINT);
   CODE -144;  (* ehemals: {R.A1}: ARRAY OF CHAR *)

PROCEDURE LinkStringGadget(buffer{R.A0}:r.StringBlockPtr;stringbuff{R.A1},undobuff{R.A2}:S.ADDRESS;VAR nw{R.A3}:I.NewWindow;widthbits{R.D0},
                           numchars{R.D1},x{R.D2},y{R.D3}:LONGINT);
   CODE -150;  (* ehemals: {R.A2}: ARRAY OF CHAR *)

PROCEDURE LinkPropGadget(buffer{R.A0}:r.PropBlockPtr;VAR nw{R.A3}:I.NewWindow;width{R.D0},height{R.D1}:LONGINT;flags{R.D2}:S.LONGSET;leftEdge{R.D3},topEdge{R.D4}:LONGINT);
   CODE -156;

PROCEDURE GetString(buffer{R.A0}:S.ADDRESS;title{R.A1}:S.ADDRESS;window{R.A2}:I.WindowPtr;visibelchars{R.D0},maxchars{R.D1}:LONGINT):BOOLEAN;
   CODE -162;  (* ehemals: {R.A0},{R.A1}: ARRAY OF CHAR *)

PROCEDURE RealTimeScroll(scrollstruct{R.A0}:r.ReqScrollStructPtr);
   CODE -168;

PROCEDURE TextRequest(trs{R.A0}:r.TRStructurePtr):INTEGER;
   CODE -174;

PROCEDURE GetLong(gl{R.A0}:r.GetLongStructPtr):BOOLEAN;
   CODE -180;

PROCEDURE RawKeyToAscii(code{R.D0},qualifier{R.D1}:INTEGER;iaddress{R.A0}: S.ADDRESS);
   CODE -186;

PROCEDURE ExtendedColorRequest(extcolreq{R.A0}:r.ExtendedColorRequesterPtr):LONGINT;
   CODE -192;

PROCEDURE NewGetString(ngetstr{R.A0}:r.GetStringStructPtr):BOOLEAN;
   CODE -198;

END ReqL.

