Text preview for : WindowDefs.mesa_Oct77.pdf part of xerox WindowDefs.mesa Oct77 xerox mesa 3.0_1977 listing WindowDefs.mesa_Oct77.pdf
Back to : WindowDefs.mesa_Oct77.pdf | Home
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