[_CD4_]<datools7.0>Graph>GraphPrivate.mesa!1

File: GraphPrivate.mesa

Last Edited:

Sweetsun Chen, November 27, 1985 3:11:00 pm PST

Christian Le Cocq April 27, 1987 3:33:45 pm PDT

DIRECTORY

Imager USING [ConstantColor, Context, Rectangle],

IO USING [STREAM],

Graph USING [AutoType, CaretIndex, ColorIndex, GRAPH, Entity, EntityGroup, EntityList, FontIndex, GraphColors, GraphFonts, GraphHandle, GraphProc, PaintAction, PaintInfo, ROPE, Text, XY, ValueList, Viewer],

Menus USING [Menu];

GraphPrivate: CEDAR DEFINITIONS = { OPEN Graph;

GraphPlaceProc: TYPE = PROC [handle: GraphHandle, sx, sy: INTEGER];

GraphAtomProc: TYPE = PROC [handle: GraphHandle, atom: ATOM];

GraphNumberProc: TYPE = PROC [handle: GraphHandle, number: INT];

GraphStreamProc: TYPE = PROC [s: IO.STREAM, graph: GRAPH];

types and signals for graph io.

RopeList: TYPE = LIST OF ROPE;

LVL: TYPE = LIST OF ValueList;

STREAM: TYPE = IO.STREAM;

CharPair: TYPE = MACHINE DEPENDENT RECORD[high, low: CHAR];

FourChars: TYPE = MACHINE DEPENDENT RECORD[lh, ll, hh, hl: CHAR];

ReadBeyondEOF: SIGNAL[message: ROPE ← NIL];

SyntaxError: SIGNAL[message: ROPE ← NIL];

DataError: SIGNAL[message: ROPE ← NIL];

public vars -- exported from GraphViewer.mesa

defaultColors: GraphColors;

defaultFonts: GraphFonts;

systemColor: ARRAY ColorIndex OF Imager.ConstantColor;

procedures

implemented by GraphController:

ShowController: PROC [handle: GraphHandle, wDir: ROPE];

IsController: PROC [viewer: Viewer] RETURNS [BOOL];

implemented by GraphDisplay:

PaintAll: PROC [handle: GraphHandle, clear, updateDivBds, clientOnly: BOOL];

PaintAllCurves: PROC [handle: GraphHandle, clear: BOOL];

PaintRect: PROC [handle: GraphHandle, rect: Imager.Rectangle, clear, updateDivBds: BOOL, action: PaintAction ← paint];

PaintText: PROC [handle: GraphHandle, text: Text, action: PaintAction ← paint];

PaintEntity: PROC [handle: GraphHandle, entity: Entity, withLegend: BOOL, action: PaintAction ← paint];

PaintLegend: PROC [handle: GraphHandle, start: Entity, action: PaintAction ← paint, onlyOne: BOOL];

PaintTails: PROC [handle: GraphHandle, x1, x2: REAL, v1, v2: ValueList, entities: EntityList, action: PaintAction ← paint, reversed: BOOL ← TRUE];

PaintTarget: PROC [handle: GraphHandle, choice: XY, action: PaintAction ← paint];

PaintGrids: PROC [handle: GraphHandle, choice: XY, long: BOOL, action: PaintAction ← paint];

PaintClient: PROC [handle: GraphHandle, info: PaintInfo];

implemented by GraphDraw:

Draw: PROC [handle: GraphHandle, context: Imager.Context, info: PaintInfo];

Print: PROC[handle: GraphHandle, file: ROPE] RETURNS [msg: ROPE ← NIL];

implemented by GraphEdit:

SwitchAuto: PROC [handle: GraphHandle, type: AutoType];

SwitchCaretVisibility,

SwitchCaretBlinking: PROC [handle: GraphHandle, index: CaretIndex ← primary];

SwitchTarget,

SwitchGrid: PROC [handle: GraphHandle, xy: XY];

SelectPoint,

SelectEntity,

SlideOnSameCurve,

SelectText,

MoveSelText,

ZoomIn,

ZoomOut,

ZoomPoint: GraphPlaceProc;

ErasePrimary,

MoveXhair2To1,

EraseSelEntity,

ShowSelEntityOnSpec,

JumpLeftAnyCurve,

JumpRightAnyCurve,

JumpUpAnyCurve,

JumpDownAnyCurve,

JumpLeftSameCurve,

JumpRightSameCurve,

EraseSelText,

SwitchSlope,

ShowSelTextOnSpec,

ZoomWithZoomPts,

ClearZoomBox: GraphProc;

RotateSelTextCW,

RotateSelTextCCW,

SlideLeftNSteps,

SlideRightNSteps: GraphNumberProc;

implemented by GraphMenus:

ChartMenus, ControllerMenus: PROC [] RETURNS [menu: Menus.Menu];

implemented by GraphMonitor:

IsLocked: PROC [handle: GraphHandle] RETURNS [BOOL];

CallWithLock: PROC [handle: GraphHandle, proc: GraphProc];

LockedPlaceProc: PROC [handle: GraphHandle, sx, sy: INTEGER, proc: GraphPlaceProc];

LockedAtomProc: PROC [handle: GraphHandle, atom: ATOM, proc: GraphAtomProc];

Wait: PROC;

UserEditAllowed: PROC [handle: GraphHandle] RETURNS [BOOL];

implemented by GraphOperations:

Operate: GraphAtomProc;

implemented by GraphPanel:

FlipToggle: GraphAtomProc;

MakeSpec,

MakeRule,

MakeXYValues: GraphPlaceProc;

implemented by GraphRead:

HandleFromFile: PROC [file: ROPE] RETURNS [handle: GraphHandle, msg: ROPE];

GetGraph: PROC [handle: GraphHandle, file: ROPE] RETURNS [msg: ROPE];

implemented by GraphReadAscii:

ReadAsciiFile: PROC [handle: GraphHandle, s: IO.STREAM] RETURNS [msg: ROPE ← NIL];

implemented by GraphRemove:

SpecRemove: GraphAtomProc;

RemoveText: PROC[handle: GraphHandle, text: Text];

RemoveEntity: PROC[handle: GraphHandle, entity: Entity];

RemoveAllCurves: GraphProc;

implemented by GraphResume:

ResumeFromPanel: GraphAtomProc;

ShowText: PROC [handle: GraphHandle, text: Text];

ShowEntity: PROC [handle: GraphHandle, entity: Entity];

ResumeTextFields: PROC[handle: GraphHandle, text: Text];

ResumeEntityFields: PROC [handle: GraphHandle, entity: Entity];

implemented by GraphTable:

MakeTable: PROC [handle: GraphHandle, file: ROPE, sx, sy: INTEGER];

AddTextButton: PROC [handle: GraphHandle, text: Text];

AddEntityButton: PROC [handle: GraphHandle, entity: Entity];

AddGroupButton: PROC [handle: GraphHandle, entityGroup: EntityGroup];

UpdateTextButton: PROC [handle: GraphHandle, text: Text];

UpdateEntityButton: PROC [handle: GraphHandle, entity: Entity];

implemented by GraphUpdate:

Update: GraphAtomProc;

implemented by GraphViewer:

ShowChart: GraphProc;

IsGraphViewer: PROC [viewer: Viewer] RETURNS [BOOL];

implemented by GraphWrite

WriteGraphFile: PROC [handle: GraphHandle, file: ROPE, plottedOnly: BOOL ← TRUE] RETURNS [msg, newName: ROPE];

WriteTextFile: PROC [handle: GraphHandle, file: ROPE] RETURNS [msg: ROPE];

CHANGE LOG.

SChen, created at October 9, 1985 5:50:44 pm PDT.