WManPosition.mesa_Oct77.pdf | | WManPosition.mesa 25-0CT-77 15:24:43 Page 1
--File: WManPosition.mesa
--Edited by Sandman October 7, 1977 12:34 PM
DIRECTORY
AltoDefs: FROM "altodefs",
DoubleDefs: FROM "doubledefs",
InlineDefs: FROM "inlinedefs",
StreamDefs: FROM "streamdefs",
MenuDefs: FROM "menudefs",
RectangleDefs: FROM "rectangledefs",
WindowDefs: FROM "windowdefs".
WManagerDefs: FROM "wmanagerdefs";
DEFINITIONS FROM StreamDefs. MenuDefs, RectangleDefs. WindowDefs. WManagerDefs;
WManPos it i on: PROGRAM[WMSta te: WMDataHand 1e]
IMPORTS DoubleDefs, StreamDefs, RectangleDefs, WindowDefs, WManagerOefs
EXPORTS WManagerDefs
SHARES StreamDefs. WManagerDefs =
BEGIN
OPEN WMState;
CR: CHARACTER = 15C;
Space: CHARACTER = 40C;
PositionFile: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord. y: yCoord]=
BEGIN OPEN DoubleDefs;
-- Declare Locals
height: CARDINAL;
bytepos, eof: LongCARDINAL;
index: StreamIndex;
-- compute positio |