xerox Menus.mesa Sep78 free download

File name Menus.mesa_Sep78.pdf

Menus.mesa 2-Sep-78 13:68:17 Page 1 -- File: Menus.mesa -- Edited by Sandman. May 12. 1978 2:41 PM DIRECTORY AltoFileDefs: FROM "altofiledefs" USING [FA]. BitBltDefs: FROM "bitbltdefs" USING [BBptr. BBTable. BITBLT]. InlineDefs: FROM "inlinedefs" USING [BITAND]. MenuDefs: FROM "menudefs" USING [ MenuArray. MenuHandle, MenuLeftMargin, MenuObject]. RectangleDefs: FROM "rectangledefs" USING [ BMHandle, BMptr, ClearBoxInRectangle, ComputeCharWidth, CreateRectangle. CursorToRecCoords, DestroyRect~ngle, DrawBoxInRectangle, FAptr, GetDefaultFont, GrayArray, GrayPtr, InvertBoxInRectangle, leftmargin. RectangleError, Rptr, WriteRectangleString, xCoord, yCoord], StreamDefs: FROM "streamdefs" USING [ EqualIndex, GetFA, GrEqualIndex, GrIndex, JumpToFA, ModifyIndex, SetIndex, StreamError], StringDefs: FROM "stringdefs" USING [AppendChar], SystemDefs: FROM "systemdefs" USING [ AllocateHeapNode, AllocateHeapString, AllocateSegment, FreeHeapNode. FreeSegment], WindowDefs: FROM "windowdefs" USING [ GetLineTable. Selection, StreamIndex, WindowHandle]; DEFINITIONS FROM BitBltDefs, WindowDefs, MenuDefs, RectangleDefs, StreamDefs; Menus: PROGRAM IMPORTS RectangleDefs, StreamDefs, StringDefs, SystemDefs, WindowDefs EXPORTS MenuDefs, RectangleDefs. WindowDefs SHARES MenuDefs, RectangleDefs a BEGIN -- GLOBAL Data defaultpfont: FAptr ~ NIL; defaultlineheight: CARDINAL; null index: StreamIndex a StreamIndex[O,-l]; originindex: StreamIndex = StreamIndex[O,O]; CR: CHARACTER a 15C; -- Mesa Display Menu Routines CreateMenu: PUBLIC PROCEDURE [array: MelluArray] RETURNS [MenuHandle]