--File: IPMainViewer.mesa
Last Edited by: CSChow, February 1, 1985 11:08:33 am PST
--Intro: This is the top-level Viewer interface which maps mouse clicks into operations
-- when IPMainViewerImpl is started you get a 'MainViewer' toolbox. If you destroy it,
-- you can get a new one by typing 'IPMainViewer' to the Commander
DIRECTORY
IPTop,
OrderedRefArray,
Rope;
IPMainViewer:
CEDAR
DEFINITIONS =
BEGIN
mvTop: IPTop.Ref;
trialSolutions: OrderedRefArray.Ref;
RollBack:
PROC[fromFile: Rope.
ROPE]
RETURNS [mvTop: IPTop.Ref];
--Allow to be used from interpreter
GetInput: PROC[defaultDir, inputFile: Rope.ROPE] RETURNS [mvTop: IPTop.Ref, systemName: Rope.ROPE];
SetTopTo: PROC[newTop: IPTop.Ref, systemName: Rope.ROPE, gotInteractively: BOOLEAN ← FALSE];
BuildViewer: PROC[mvName: Rope.ROPE];
END.