home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / reqlibr.lzh / ReqLibrary / ReqL.def < prev    next >
Encoding:
Modula Definition  |  1991-12-31  |  3.2 KB  |  95 lines
  1. DEFINITION MODULE ReqL {"req.library",2};
  2.  
  3. IMPORT E: ExecD,
  4.        I: IntuitionD,
  5.        G: GraphicsD,
  6.        D: DosD,
  7.        S: SYSTEM,
  8.        r: ReqD,
  9.        R;
  10.  
  11.  
  12. VAR reqVersion: INTEGER;
  13.     reqBase   : r.ReqLibPtr;
  14.  
  15. CONST reqName     = "req.library";
  16.       reqMinVersion  = 2;
  17.  
  18.  
  19. PROCEDURE Center(VAR nw{R.A0}: I.NewWindow;
  20.                  x{R.D0},y{R.D1}:INTEGER);
  21.    CODE -30;
  22.  
  23. PROCEDURE SetSize(maxValue{R.D0},viewSize{R.D1}:LONGINT): INTEGER;
  24.    CODE -36;
  25.  
  26. PROCEDURE SetLocation(maxValue{R.D0},viewSize{R.D1},value{R.D2}:LONGINT): INTEGER;
  27.    CODE -42;
  28.  
  29. PROCEDURE ReadLocation(maxValue{R.D0},viewSize{R.D1}:LONGINT;potValue{R.D2}:INTEGER): LONGINT;
  30.    CODE -48;
  31.  
  32. PROCEDURE Format(buffer{R.A2},string{R.A0}: S.ADDRESS;VAR values{R.A1}:S.ADDRESS);
  33.    CODE -54; (* ehemals {R.A0}: ARRAY OF CHAR *)
  34.  
  35. PROCEDURE FileRequest(filereq{R.A0} :r.ReqFileRequesterPtr): BOOLEAN;
  36.    CODE -84;
  37.  
  38. PROCEDURE ColorRequester(desiredColor{R.D0}:LONGINT): LONGINT;
  39.    CODE -90;
  40.  
  41. PROCEDURE DrawBox(rp{R.A1}: G.RastPortPtr;minX{R.D0},minY{R.D1},maxX{R.D2},maxY{R.D3}:LONGINT);
  42.    CODE -96;
  43.  
  44. 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);
  45.    CODE -102;
  46.  
  47. PROCEDURE MakeScrollBar(buffer{R.A0}:r.ScrollBlockPtr;flags{R.D0}:S.LONGSET;size{R.D1},x{R.D2},y{R.D3}:LONGINT);
  48.    CODE -108;
  49.  
  50. PROCEDURE PurgeFiles(filereq{R.A0}:r.ReqFileRequesterPtr);
  51.    CODE -114;
  52.  
  53. PROCEDURE MakeGadget(buffer{R.A0}:r.GadgetBlockPtr;string{R.A1}: S.ADDRESS;x{R.D0},y{R.D1}:LONGINT);
  54.    CODE -126;  (* ehemals: {R.A1}: ARRAY OF CHAR *)
  55.  
  56. 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);
  57.    CODE -132;  (* ehemals: {R.A2}: ARRAY OF CHAR *)
  58.  
  59. PROCEDURE MakeProp(buffer{R.A0}:r.PropBlockPtr;width{R.D0},height{R.D1}:LONGINT;flags{R.D2}:S.LONGSET);
  60.    CODE -138;
  61.  
  62. 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);
  63.    CODE -144;  (* ehemals: {R.A1}: ARRAY OF CHAR *)
  64.  
  65. PROCEDURE LinkStringGadget(buffer{R.A0}:r.StringBlockPtr;stringbuff{R.A1},undobuff{R.A2}:S.ADDRESS;VAR nw{R.A3}:I.NewWindow;widthbits{R.D0},
  66.                            numchars{R.D1},x{R.D2},y{R.D3}:LONGINT);
  67.    CODE -150;  (* ehemals: {R.A2}: ARRAY OF CHAR *)
  68.  
  69. 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);
  70.    CODE -156;
  71.  
  72. 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;
  73.    CODE -162;  (* ehemals: {R.A0},{R.A1}: ARRAY OF CHAR *)
  74.  
  75. PROCEDURE RealTimeScroll(scrollstruct{R.A0}:r.ReqScrollStructPtr);
  76.    CODE -168;
  77.  
  78. PROCEDURE TextRequest(trs{R.A0}:r.TRStructurePtr):INTEGER;
  79.    CODE -174;
  80.  
  81. PROCEDURE GetLong(gl{R.A0}:r.GetLongStructPtr):BOOLEAN;
  82.    CODE -180;
  83.  
  84. PROCEDURE RawKeyToAscii(code{R.D0},qualifier{R.D1}:INTEGER;iaddress{R.A0}: S.ADDRESS);
  85.    CODE -186;
  86.  
  87. PROCEDURE ExtendedColorRequest(extcolreq{R.A0}:r.ExtendedColorRequesterPtr):LONGINT;
  88.    CODE -192;
  89.  
  90. PROCEDURE NewGetString(ngetstr{R.A0}:r.GetStringStructPtr):BOOLEAN;
  91.    CODE -198;
  92.  
  93. END ReqL.
  94.  
  95.