Topspeed_JPI/TS-V3/GRAPHIX/MW.LST

Listing:

    1  (******************************************************************************)
    2  (*                 MW.DEF - MetaWINDOW (Plus) 3.6a Interface.                 *)
    3  (*                                                                            *)
    4  (*  This definition module provides an interface with the Microsoft C         *)
    5  (*  interface for MetaWINDOW and MetaWINDOW Plus v3.6a.  It should not be     *)
    6  (*  IMPORTed into your programs directly.  IMPORT Meta instead which provides *)
    7  (*  access to this module and performs the necessary initialisations.         *)
    8  (*                                                                            *)
    9  (*  PSW 06/28/91 08:30am                                                      *)
   10  (******************************************************************************)
   11  (*# module(implementation=>off, init_code=>off)                               *)
   12  
   13  DEFINITION MODULE MW;
   14  (*
   15   *  Graphix
   16   *  Release 3.7
   17   *  (c) Copyright 1986-1992 PMI
   18   *  Green Bay, Wisconsin
   19   *  (414) 468-6040
   20   *  All rights reserved
   21   *
   22   *)
   23  
   24    FROM GrConst IMPORT rect, point, adsPoint, image, adsImage, polyHead,
   25      adsPolyHead, event, cursor, patRcd, HCInfoRec, penState, dirRec,
   26      imageHeader, dashRcd, palData, CCBtype, MCBtype, mapArray, adsImage;
*****                                                                 ^ duplicate identifier
   27    FROM GrPorts IMPORT bitmap, adsBMap, metaPort, adsPort, pusharea, adsMem;
   28    FROM GrFonts IMPORT adsFont;
   29  
   30  (*# save, name(prefix => none) *)
   31  
   32    VAR
   33      Meta_DPL: BYTE;                     (* Used to 'find' MetaWINDOW.         *)
*****                ^ undeclared identifier
   34  
   35  
   36  (*# data(near_ptr => off),
   37      call(o_a_copy => off, o_a_size => off, c_conv => on, near_call => off,
   38           reg_saved => (si, di, ds, st1, st2), reg_param => ()),
   39      name(prefix => c)
   40  *)
   41  
   42    TYPE
   43      MsProc = PROCEDURE ();              (* Mouse service handler.             *)
*****               ^ not supported yet
   44      UsProc = PROCEDURE (VAR CCBtype);   (* User service handler.              *)
*****               ^ not supported yet
*****                              ^ not supported yet
   45  
   46  PROCEDURE AddPt          (VAR SRCPT, DSTPT: point);
   47  PROCEDURE AlignPattern   (PATTERN, PATX, PATY: INTEGER);
   48  PROCEDURE BackColor      (COLOR: INTEGER);
   49  PROCEDURE BackLColor     (LCOLOR: LONGINT);
   50  PROCEDURE BackPattern    (PATTERN: INTEGER);
   51  PROCEDURE BorderColor    (COLOR: INTEGER);
   52  PROCEDURE CenterRect     (VAR PT: point; WIDTHX, HEIGHTY: INTEGER; VAR R: rect);
   53  PROCEDURE CharWidth      (CH: CHAR) : INTEGER;
   54  PROCEDURE ClearText      ();
   55  PROCEDURE ClipRect       (VAR R: rect);
   56  PROCEDURE CodeSeg        (): WORD;
*****                               ^ undeclared identifier
   57  PROCEDURE CopyBits       (VAR SRCMAP, DSTMAP: bitmap;
   58                           VAR SRCRECT, DSTRECT, DSTCLIP: rect; RASOP: INTEGER);
   59  PROCEDURE CursorBitmap   (NEWMAP: adsBMap);
   60  PROCEDURE CursorColor    (FORECOLOR, BACKCOLOR: LONGINT);
   61  PROCEDURE CursorMap      (VAR BUTTONMAP: mapArray);
   62  PROCEDURE CursorStyle    (CURSORNBR: INTEGER);
   63  PROCEDURE DataSeg        (): WORD;
*****                               ^ undeclared identifier
   64  PROCEDURE DefineCursor   (CURSORNBR, HOTX, HOTY: INTEGER;
   65                           VAR SCREENMASK, CURSORMASK: cursor);
   66  PROCEDURE DefineDash     (DASHNBR: INTEGER; VAR DASHARRAY: dashRcd);
   67  PROCEDURE DefinePattern  (PATTERN: INTEGER; VAR PATIMAGE: patRcd);
   68  PROCEDURE DrawChar       (CH: CHAR);
   69  PROCEDURE DrawString     (TEXTSTR: ARRAY OF CHAR);
*****                                              ^ not supported yet
   70  PROCEDURE DrawText       (TEXTSTR: ARRAY OF CHAR; INDEX, COUNT: INTEGER);
*****                                              ^ not supported yet
   71  PROCEDURE DupBitmap      (VAR SRCMAP, DSTMAP: bitmap);
   72  PROCEDURE DupPort        (VAR SRCPORT, DSTPORT: metaPort);
   73  PROCEDURE DupPt          (VAR SRCPT, DSTPT: point);
   74  PROCEDURE DupRect        (VAR SRCRECT, DSTRECT: rect);
   75  PROCEDURE EqualPt        (VAR PT1, PT2: point): BOOLEAN;
   76  PROCEDURE EqualRect      (VAR RECT1, RECT2: rect): BOOLEAN;
   77  PROCEDURE EraseArc       (VAR R: rect; BGNANGLE, ARCANGLE: INTEGER);
   78  PROCEDURE EraseOval      (VAR R: rect);
   79  PROCEDURE ErasePoly      (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
   80                           POLYPTS: adsPoint);
   81  PROCEDURE EraseRect      (VAR R: rect);
   82  PROCEDURE EraseRoundRect (VAR R: rect; DIAX, DIAY: INTEGER);
   83  PROCEDURE EventQueue     (TF: BOOLEAN);
   84  PROCEDURE ExtraSeg       (): WORD;
*****                               ^ undeclared identifier
   85  PROCEDURE FileAttr       (FILENAME: ARRAY OF CHAR; ATTR: WORD): INTEGER;
*****                                               ^ not supported yet
*****                                                           ^ undeclared identifier
   86  PROCEDURE FileDelete     (FILENAME: ARRAY OF CHAR): INTEGER;
*****                                               ^ not supported yet
   87  PROCEDURE FileLoad       (FILENAME: ARRAY OF CHAR;
*****                                               ^ not supported yet
   88                           DATAAREA: adsMem; AREASIZE: CARDINAL): INTEGER;
   89  PROCEDURE FileQuery      (FILESPEC: ARRAY OF CHAR;
*****                                               ^ not supported yet
   90                           VAR DIRINFO: dirRec; DIRSIZE: CARDINAL): INTEGER;
   91  PROCEDURE FileRename     (OLDNAME, NEWNAME: ARRAY OF CHAR): INTEGER;
*****                                                       ^ not supported yet
   92  PROCEDURE FileStore      (FILENAME: ARRAY OF CHAR; DATAAREA: adsMem; AREASIZE: CARDINAL): INTEGER;
*****                                               ^ not supported yet
   93  PROCEDURE FillArc        (VAR R: rect; BGNANGLE: INTEGER;
   94                           ARCANGLE, PATTERN: INTEGER);
   95  PROCEDURE FillOval       (VAR R: rect; PATTERN: INTEGER);
   96  PROCEDURE FillPoly       (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
   97                           POLYPTS: adsPoint; PATTERN: INTEGER);
   98  PROCEDURE FillRect       (VAR R: rect; PATTERN: INTEGER);
   99  PROCEDURE FillRoundRect  (VAR R: rect; DIAX, DIAY, PATTERN: INTEGER);
  100  PROCEDURE FrameArc       (VAR R: rect; BGNANGLE, ARCANGLE: INTEGER);
  101  PROCEDURE FrameOval      (VAR R: rect);
  102  PROCEDURE FramePoly      (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
  103                           POLYPTS: adsPoint);
  104  PROCEDURE FrameRect      (VAR R: rect);
  105  PROCEDURE FrameRoundRect (VAR R: rect; DIAX, DIAY: INTEGER);
  106  PROCEDURE Gbl2LclPt      (VAR PT: point);
  107  PROCEDURE Gbl2LclRect    (VAR R: rect);
  108  PROCEDURE Gbl2VirPt      (VAR PT: point);
  109  PROCEDURE Gbl2VirRect    (VAR R: rect);
  110  PROCEDURE GetAddress     (VARBL: FarADDRESS; VAR SGM, OFF: INTEGER);
*****                                   ^ undeclared identifier
  111  PROCEDURE GetBits        (X, Y: INTEGER; VAR SRCMAP: bitmap): LONGINT;
  112  PROCEDURE GetCmdLine     (VAR CMDSTRING: ARRAY OF CHAR);
*****                                                    ^ not supported yet
  113  PROCEDURE GetFontField   (FIELD: INTEGER): INTEGER;
  114  PROCEDURE GetLPixel      (X, Y: INTEGER; VAR LCOLOR: LONGINT);
  115  PROCEDURE GetPenState    (VAR STATE: penState);
  116  PROCEDURE GetPixel       (X, Y: INTEGER): INTEGER;
  117  PROCEDURE GetPort        (VAR PORTPTR: adsPort);
  118  PROCEDURE GrInitErr      (ERROR: INTEGER);
  119  PROCEDURE HardCopy       (SRCPORT: adsPort): WORD;
*****                                               ^ undeclared identifier
  120  PROCEDURE HideCursor     ();
  121  PROCEDURE HidePen        ();
  122  PROCEDURE ImagePara      (VAR R: rect): WORD;
*****                                          ^ undeclared identifier
  123  PROCEDURE ImageSize      (VAR R: rect): LONGINT;
  124  PROCEDURE InceptRect     (VAR RECT1, RECT2, DSTRECT: rect): BOOLEAN;
  125  PROCEDURE InitBitmap     (VAR NEWMAP: bitmap; INTERLEAVE,
  126                           BASESEG, BASEOFF, INTERSEG, INTEROFF: INTEGER);
  127  PROCEDURE InitGrafix     (DEVMODE: INTEGER): INTEGER;
  128  PROCEDURE InitMouse      (MOUSPORT: INTEGER);
  129  PROCEDURE InitPort       (PORT: adsPort);
  130  PROCEDURE InitRowTable   (NEWMAP: adsBMap; INTERLEAVE,
  131                           INTERSEG, INTEROFF: INTEGER);
  132  PROCEDURE InsetRect      (VAR R: rect; DX, DY: INTEGER);
  133  PROCEDURE InvertArc      (VAR R: rect; BGNANGLE, ARCANGLE: INTEGER);
  134  PROCEDURE InvertOval     (VAR R: rect);
  135  PROCEDURE InvertPoly     (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
  136                           POLYPTS: adsPoint);
  137  PROCEDURE InvertRect     (VAR R: rect);
  138  PROCEDURE InvertRoundRect(VAR R: rect; DIAX, DIAY: INTEGER);
  139  PROCEDURE KeyEvent       (WAIT: BOOLEAN; VAR EVNT: event): BOOLEAN;
  140  PROCEDURE Lcl2GblPt      (VAR PT: point);
  141  PROCEDURE Lcl2GblRect    (VAR R: rect);
  142  PROCEDURE Lcl2VirPt      (VAR PT: point);
  143  PROCEDURE Lcl2VirRect    (VAR R: rect);
  144  PROCEDURE LimitMouse     (XMIN, YMIN, XMAX, YMAX: INTEGER);
  145  PROCEDURE LineRel        (DLTX, DLTY: INTEGER);
  146  PROCEDURE LineTo         (X, Y: INTEGER);
  147  PROCEDURE LoadFont       (FONTNAME: ARRAY OF CHAR): INTEGER;
*****                                               ^ not supported yet
  148  PROCEDURE LoadPalette    (BGNINDEX, ENDINDEX: INTEGER; VAR COLORS: ARRAY OF WORD);
*****                                                                              ^ undeclared identifier
  149  PROCEDURE MapPoly        (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
  150                           POLYPTS: adsPoint; VAR SRCR: rect; VAR DSTR: rect);
  151  PROCEDURE MapPt          (VAR PT: point; VAR SRCR, DSTR: rect);
  152  PROCEDURE MapRect        (VAR R: rect; VAR SRCR, DSTR: rect);
  153  PROCEDURE MarkerAngle    (ANGLE: INTEGER);
  154  PROCEDURE MarkerSize     (WIDTH, HEIGHT: INTEGER);
  155  PROCEDURE MarkerType     (MARKERNBR: INTEGER);
  156  PROCEDURE MetaVersion    (VAR STRING: ARRAY OF CHAR);
*****                                                 ^ not supported yet
  157  PROCEDURE MiterLimit     (LIMITANGLE: INTEGER);
  158  PROCEDURE MoveCursor     (X, Y: INTEGER);
  159  PROCEDURE MovePortTo     (GBLLEFT, GBLTOP: INTEGER);
  160  PROCEDURE MoveRel        (DLTX, DLTY: INTEGER);
  161  PROCEDURE MoveTo         (X, Y: INTEGER);
  162  PROCEDURE OffsetPoly     (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
  163                           POLYPTS: adsPoint; DX, DY: INTEGER);
  164  PROCEDURE OffsetRect     (VAR R: rect; DX, DY: INTEGER);
  165  PROCEDURE OvalPt         (VAR R: rect; ANGLE: INTEGER; VAR PT: point);
  166  PROCEDURE PaintArc       (VAR R: rect; BGNANGLE, ENDANGLE: INTEGER);
  167  PROCEDURE PaintOval      (VAR R: rect);
  168  PROCEDURE PaintPoly      (POLYCNT: INTEGER; POLYHDR: adsPolyHead;
  169                           POLYPTS: adsPoint);
  170  PROCEDURE PaintRect      (VAR R: rect);
  171  PROCEDURE PaintRoundRect (VAR R: rect; DIAX, DIAY: INTEGER);
  172  PROCEDURE PeekEvent      (INDEX: INTEGER; VAR EVNT: event): BOOLEAN;
  173  PROCEDURE PenCap         (CAPSTYLE: INTEGER);
  174  PROCEDURE PenColor       (COLOR: INTEGER);
  175  PROCEDURE PenDash        (DASHSTYLE: INTEGER);
  176  PROCEDURE PenJoin        (JOINSTYLE: INTEGER);
  177  PROCEDURE PenLColor      (LCOLOR: LONGINT);
  178  PROCEDURE PenMode        (RASOP: INTEGER);
  179  PROCEDURE PenNormal      ();
  180  PROCEDURE PenOffset      (DASHOFFSET: INTEGER);
  181  PROCEDURE PenPattern     (PATTERN: INTEGER);
  182  PROCEDURE PenSize        (DIAX, DIAY: INTEGER);
  183  PROCEDURE PlaneMask      (PMASK: INTEGER);
  184  PROCEDURE PolyLine       (PTCNT: INTEGER; PTS: adsPoint);
  185  PROCEDURE PolyMarker     (NPTS: INTEGER; XYPTS: adsPoint);
  186  PROCEDURE PopGrafix      (VAR SAVEAREA: pusharea);
  187  PROCEDURE PortBitmap     (NEWMAP: adsBMap);
  188  PROCEDURE PortOrigin     (TOPBOT: BOOLEAN);
  189  PROCEDURE PortSize       (PIXWIDTHX, PIXHEIGHTY: INTEGER);
  190  PROCEDURE ProtectOff     ();
  191  PROCEDURE ProtectRect    (VAR R: rect);
  192  PROCEDURE Pt2Rect        (VAR PT1, PT2: point; VAR R: rect);
  193  PROCEDURE PtInArc        (VAR TESTPT: point; VAR R: rect;
  194                           BGNANGLE, ARCANGLE: INTEGER): BOOLEAN;
  195  PROCEDURE PtInOval       (VAR TESTPT: point; VAR R: rect): BOOLEAN;
  196  PROCEDURE PtInPoly       (VAR TESTPT: point; POLYCNT: INTEGER;
  197                           POLYHDRS: adsPolyHead; POLYPTS: adsPoint): BOOLEAN;
  198  PROCEDURE PtInRect       (VAR TESTPT: point; VAR R: rect): BOOLEAN;
  199  PROCEDURE PtInRoundRect  (VAR TESTPT: point; VAR R: rect;
  200                           DIAX, DIAY: INTEGER): BOOLEAN;
  201  PROCEDURE PtOnArc        (VAR TESTPT: point; VAR R: rect;
  202                           BGNANGLE, ARCANGLE, SIZEX, SIZEY: INTEGER): INTEGER;
  203  PROCEDURE PtOnLine       (VAR TESTPT: point; VAR PT1, PT2: point;
  204                           SIZEX, SIZEY: INTEGER): BOOLEAN;
  205  PROCEDURE PtOnOval       (VAR TESTPT: point; VAR R: rect;
  206                           SIZEX, SIZEY: INTEGER): INTEGER;
  207  PROCEDURE PtOnRect       (VAR TESTPT: point; VAR R: rect;
  208                           SIZEX, SIZEY: INTEGER): INTEGER;
  209  PROCEDURE PtOnRoundRect  (VAR TESTPT: point; VAR R: rect;
  210                           DIAX, DIAY: INTEGER; SIZEX, SIZEY: INTEGER): INTEGER;
  211  PROCEDURE PtOnPoly       (VAR TESTPT: point; POLYCNT: INTEGER;
  212                           POLYHDRS: adsPolyHead; POLYPTS: adsPoint;
  213                           penX, penY: INTEGER): INTEGER;
  214  PROCEDURE PtToAngle      (VAR R: rect; VAR PT: point): INTEGER;
  215  PROCEDURE PushGrafix     (VAR SAVEAREA: pusharea);
  216  PROCEDURE QueryColors    (): INTEGER;
  217  PROCEDURE QueryComm      (): INTEGER;
  218  PROCEDURE QueryCursor    (VAR CURSORX, CURSORY, CURSORLEVEL, BUTTONS: INTEGER);
  219  PROCEDURE QueryError     (): INTEGER;
  220  PROCEDURE QueryGrafix    (): INTEGER;
  221  PROCEDURE QueryPosn      (VAR X, Y: INTEGER);
  222  PROCEDURE QueryRes       (VAR RESX, RESY: INTEGER);
  223  PROCEDURE QueryX         (): INTEGER;
  224  PROCEDURE QueryY         (): INTEGER;
  225  PROCEDURE RasterOp       (RASOP: INTEGER);
  226  PROCEDURE ReadImage      (VAR SRCR: rect; DSTIMAGE: adsImage);
  227  PROCEDURE ReadMouse      (VAR X, Y, SW: INTEGER);
  228  PROCEDURE ReadPalette    (PALNBR, BGNINDX, ENDINDX: INTEGER; VAR COLORS: ARRAY OF palData);
*****                                                                                    ^ not supported yet
  229  PROCEDURE ScaleMouse     (FACTORX, FACTORY: INTEGER);
  230  PROCEDURE ScalePt        (VAR PT: point; VAR SRCR, DSTR: rect);
  231  PROCEDURE ScreenRect     (VAR SCRNR: rect);
  232  PROCEDURE ScreenSize     (VAR SCRNXMAX, SCRNYMAX: INTEGER);
  233  PROCEDURE ScrollRect     (VAR R: rect; DX, DY: INTEGER);
  234  PROCEDURE SetBitmap      (PAGE: INTEGER);
  235  PROCEDURE SetBits        (X, Y: INTEGER; COLOR: LONGINT; RASOP: INTEGER;
  236                           VAR CLIP_RECT: rect; VAR SRCMAP: bitmap);
  237  PROCEDURE SetHardCopy    (VAR HCI: HCInfoRec);
  238  PROCEDURE SetDisplay     (PAGE: INTEGER);
  239  PROCEDURE SetFont        (FONTBUFFER: adsFont);
  240  PROCEDURE SetLocal       ();
  241  PROCEDURE SetOrigin      (LCLX, LCLY: INTEGER);
  242  PROCEDURE SetPalette     (BACKGROUND: INTEGER; PALETTE: WORD);
*****                                                          ^ undeclared identifier
  243  PROCEDURE SetPenState    (VAR STATE: penState);
  244  PROCEDURE SetPixel       (X, Y: INTEGER);
  245  PROCEDURE SetPort        (NEWPORT: adsPort);
  246  PROCEDURE SetPt          (VAR PT: point; X, Y: INTEGER);
  247  PROCEDURE SetRect        (VAR R: rect; X1, Y1, X2, Y2: INTEGER);
  248  PROCEDURE SetVirtual     ();
  249  PROCEDURE ShiftRect      (VAR R: rect; DX, DY: INTEGER; VAR R1, R2: rect): INTEGER;
  250  PROCEDURE ShowCursor     ();
  251  PROCEDURE ShowPen        ();
  252  PROCEDURE StackPtr       (): WORD;
*****                               ^ undeclared identifier
  253  PROCEDURE StackSeg       (): WORD;
*****                               ^ undeclared identifier
  254  PROCEDURE StopEvent      ();
  255  PROCEDURE StopMouse      ();
  256  PROCEDURE StopTimer      ();
  257  PROCEDURE StoreEvent     (VAR EVNT: event): BOOLEAN;
  258  PROCEDURE StringWidth    (TEXTSTR: ARRAY OF CHAR): INTEGER;
*****                                              ^ not supported yet
  259  PROCEDURE SubPt          (VAR SRCPT, DSTPT: point);
  260  PROCEDURE SystemFont     (FONTNBR: INTEGER): INTEGER;
  261  PROCEDURE TextAlign      (HORZ, VERT: INTEGER);
  262  PROCEDURE TextAngle      (ANGLE: INTEGER);
  263  PROCEDURE TextExtra      (SPACE: INTEGER);
  264  PROCEDURE TextFace       (FACE: INTEGER);
  265  PROCEDURE TextMode       (RASOP: INTEGER);
  266  PROCEDURE TextPath       (PATH: INTEGER);
  267  PROCEDURE TextScore      (GAP: INTEGER);
  268  PROCEDURE TextSize       (WIDTHX, HEIGHTY: INTEGER);
  269  PROCEDURE TextSlant      (ANGLE: INTEGER);
  270  PROCEDURE TextSpace      (SPACE: INTEGER);
  271  PROCEDURE TextUnder      (BELOW: INTEGER);
  272  PROCEDURE TextWidth      (TEXTSTR: ARRAY OF CHAR; INDEX, COUNT: INTEGER): INTEGER;
*****                                              ^ not supported yet
  273  PROCEDURE TrackCursor    (TF: BOOLEAN);
  274  PROCEDURE UnionRect      (VAR RECT1, RECT2, DSTRECT: rect);
  275  PROCEDURE UserMouse      (VAR MOUSESVC: MsProc; VAR MCB: MCBtype);
  276  PROCEDURE MouseSvc       (I1, I2, I3: INTEGER; VAR MCB: MCBtype);
  277  PROCEDURE UserTimer      (VAR TIMERSVC: UsProc; TIMECOUNT: INTEGER; VAR CCB: CCBtype);
  278  PROCEDURE TimerSvc       (VAR CCB: CCBtype);
  279  PROCEDURE Vir2GblPt      (VAR PT: point);
  280  PROCEDURE Vir2GblRect    (VAR R: rect);
  281  PROCEDURE Vir2LclPt      (VAR PT: point);
  282  PROCEDURE Vir2LclRect    (VAR R: rect);
  283  PROCEDURE VirtualRect    (VAR R: rect);
  284  PROCEDURE WriteImage     (VAR DSTR: rect; SRCIMAGE: adsImage);
  285  PROCEDURE WritePalette   (PALNBR, BGNINDX, ENDINDX: INTEGER; VAR COLORS: ARRAY OF palData);
*****                                                                                    ^ not supported yet
  286  PROCEDURE XlateImage     (SRCIMAGE, DSTIMAGE: adsImage;
  287                           DSTBITS, DSTPLANES: INTEGER; VAR XLTABLE: LONGINT);
  288  PROCEDURE XYInRect       (X, Y: INTEGER; VAR R: rect): INTEGER;
  289  PROCEDURE ZoomBits       (SRCMAP, DSTMAP: adsBMap;
  290                             VAR SRCRECT, DSTRECT, DSTCLIP: rect; RASOP: INTEGER);
  291  (*# restore *)
  292  
  293  END MW.
*****      ^ not supported yet

   32 errors