Menus.mesa_Sep78.pdf part of xerox Menus.mesa Sep78 Menus.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_System Menus.mesa

Text preview for : Menus.mesa_Sep78.pdf part of xerox Menus.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System Menus.mesa_Sep78.pdf

Back to : Menus.mesa_Sep78.pdf | Home

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]