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