<<--File: IPMainViewer.mesa>> <> <<--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.