xerox WindowDefs.mesa Oct77 free download

File name WindowDefs.mesa_Oct77.pdf

windowdefs.mESA 24-0CT-77 18:56:07 Page 1 -- Windowdefs.Mesa Edited by Wick on May 18, 1977 12:08 PM DIRECTORY SegmentDefs: FROM "segmentdefs", MenuDefs: FROM "menudefs", StreamDefs: FROM "streamdefs", RectangleDefs: FROM "rectangledefs"; DEFINITIONS FROM SegmentDefs, MenuDefs, StreamDefs, RectangleDefs; WindowDefs: DEFINITIONS = 8EGIN -- some TYPE'S and POINTERS WindowType: TYPE = {clear, random, scratch, f11e, scriptfile}; WindowHandle: TYPE = POINTER TO DisplayWindow; -- procedures implementing Windows CreateDisplayWindow: PUBLIC PROCEDURE [WindowType, Rptr, DisplayHandle, StreamHandle, STRING] RETU~NS[WindowHandle]; AlterWindowType: PUBLIC PROCEDURE [WindowHandle, WindowType, STRING]; DestroyDisp1ayWindow; PUBLIC PROCEDURE [Wi ndowHandl e]: UnlinkDisplayWindow: PUBLIC PROCEDURE [WindowHandle] ; PaintDisplayWindow: PUBLIC PROCEDURE [WindowHandle]: DrawDisplayWindow: PUBLIC PROCEDURE [WindowHandle]: FindDisplayWindow: PUBLIC PROCEDURE [x, y: INTEGER] RETURNS[WindowHandle, xCoord, yCoord]: SetCurrentDisplayWindow: PUBLIC PROCEDURE [WindowHandle]: SetFi1eForWindo~: PUBLIC PROCEDURE [WindowHandle, STRING]; SetFileHand1eForWindow: PUBLIC PROCEDURE [WindowHandle, FileHandle, STRING]: SetIndexForWindow: PUBLIC PROCEDURE [WindowHand1e, Streamlndex]: SetPositionForWindow: PUBLIC PROCEDURE [WindowHandle, INTEGER]: GetCurrentDisp1ayWindow: PUBLIC PROCEDURE RETURNS[W i ndowfland 1e]: GetLineTable: PUBLIC PROCEDURE RETURNS[POINTER]: OpenOisplayWindows: PUBLIC PROCEDURE: CloseDisplayWindows: PUBLIC PROCEDURE: RepaintDisp1ayWindows: PROCEDURE [mapdata: BMHandle]: --RECORDS DisplayWindow: TYPE RECORD [ link: WindowHandle, type: WindowType, name: STR lNG, menu: MenuHandle, displayproc: PROCEDURE[WindowHandle], rectangle: Rptr, ds: Oisp1ayHandle, ks : Sl r e amll and 1e , file: [)iskllandle, fi1eindex: Streamlndex, temp index: SLreamIndex, eofindex: SLreamIndex, selection: Selection ]: Selection: TYPE: RECORD [ leftx, rightx: xCoord, leftline. "ighlline: fNTEGFR, 1eft i ndex. "i 9h Li ndex: S l ream In de x windowdefs.mESA 24-0CT-77 18:55:07 Page 2 ]; Procedures Implementing Selections ResolveBugToPosition: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] RETURNS[INTEGER, xCoord, INTEGER, StreamIndex]; MakeSelection: PUBLIC PROCEDURE [w: WindowHandle, sel: POINTER TO Selection]; MarkSelection: PUBLIC PROCEDURE [w: WindowHandle]; GetSelection: PUBLIC PROCEDURE [w: WindowHandle] RETURNS[STRING); UpdateSelection: PUBLIC PROCEDURE [w: WindowHandle]; END. of windowdefs