<<>>
    <<TEditDocumentPrivate.mesa>>
        <<Copyright Ó 1985, 1986, 1987, 1991, 1992 by Xerox Corporation.  All rights reserved.>>
        <<Edited by Paxton on October 28, 1982 10:51 am>>
        <<Michael Plass, March 14, 1985 1:55:07 pm PST>>
        <<Willie-s, February 12, 1991 6:56 pm PST>>
        <<Doug Wyatt, January 30, 1992 6:36 pm PST>>

    DIRECTORY
        PFS USING [OpenFile],
        Rope USING [ROPE],
        Tioga USING [Location, Node],
        ViewerClasses USING [ClickProc, Column, MenuEntry, PaintHint, Viewer];

    TEditDocumentPrivate: CEDAR DEFINITIONS ~ BEGIN

    Viewer: TYPE = ViewerClasses.Viewer;
    Column: TYPE = ViewerClasses.Column;
    ROPE: TYPE = Rope.ROPE;

    RecordUnsavedDocument: PROC [fileName: ROPE, root: Tioga.Node];

    FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: Tioga.Node];

    KillSelections: PROC [parent: Viewer];

    CancelLinks: PROC [viewer: Viewer];

    FileIsMoreRecent: PROC [root: Tioga.Node, file: Rope.ROPE] RETURNS [BOOL];

    Reselect: ViewerClasses.ClickProc;

    PositionHistory: TYPE = RECORD [ pos, prev: Tioga.Location ];

    JumpToPrevious: ViewerClasses.ClickProc;

    InitViewerDoc: PROC [self: Viewer, data: REF ANY];
    InitViewerDocInternal: PROC [self: Viewer, file: PFS.OpenFile, data: REF ANY ¬ NIL];

    EmptyViewer: PROC [parent: Viewer];

    NewViewer: PROC [parent: Viewer];

    DoNewViewer: PROC [column: Column ¬ left, parent: ViewerClasses.Viewer ¬ NIL]
        RETURNS [new: ViewerClasses.Viewer];

    CloseAndNewViewer: PROC [parent: Viewer];

    DoCloseAndNewViewer: PROC [parent: ViewerClasses.Viewer]
        RETURNS [new: ViewerClasses.Viewer];

    OpenFile: PROC [parent: Viewer];

    DoOpenFile: PROC [fileName: ROPE ¬ NIL, column: Column ¬ left, parent: Viewer ¬ NIL, fileNameProcViewer: Viewer ¬ NIL] RETURNS 
    [viewer: Viewer];

    CloseAndOpenFile: PROC [parent: Viewer, fileNameProcViewer: Viewer ¬ NIL];

    DoCloseAndOpenFile: PROC [parent: Viewer, fileName: ROPE ¬ NIL]
        RETURNS [viewer: Viewer];

    OpenImplFile: PROC [parent: Viewer];

    DoOpenImplFile: PROC [fileName: ROPE ¬ NIL, column: Column ¬ left, parent: Viewer ¬ NIL]
        RETURNS [viewer: Viewer];

    CloseAndOpenImplFile: PROC [parent: Viewer];

    DoCloseAndOpenImplFile: PROC [parent: Viewer, fileName: ROPE ¬ NIL]
        RETURNS [viewer: Viewer];

    LoadFile: PROC [parent: Viewer];

    DoLoadFile: PROC [
        parent: ViewerClasses.Viewer, fileName: ROPE ¬ NIL, close: BOOL ¬ FALSE,
        fileNameProcViewer: ViewerClasses.Viewer ¬ NIL]
        RETURNS [viewer: Viewer];

    LoadImplFile: PROC [parent: Viewer];

    DoLoadImplFile: PROC [parent: ViewerClasses.Viewer, fileName: ROPE ¬ NIL, close: BOOL ¬ FALSE]
        RETURNS [viewer: Viewer];

    AnonymousLoadFile: PROC [
        parent: Viewer, fileNameProcViewer: ViewerClasses.Viewer ¬ NIL];

    AnonymousLoadImplFile: PROC [parent: Viewer];

    LoadPreviousFile: PROC [parent: Viewer];

    OpenPreviousFile: PROC [parent: Viewer];

    CloseAndOpenPreviousFile: PROC [parent: Viewer];

    PreStore: ViewerClasses.ClickProc;

    StoreFile: PROC [parent: Viewer];

    DoStoreFile: PUBLIC PROC [parent: Viewer, fileName: Rope.ROPE ¬ NIL];

    PositionViewer: PROC [viewer: Viewer, loc: Tioga.Location, hint: ViewerClasses.PaintHint ¬ client] 
        RETURNS [ok: BOOL];

    DefaultMenus: PROC [viewer: Viewer, paint: BOOL ¬ FALSE];

    findMenu, levelMenu: ViewerClasses.MenuEntry;

    FindMenu: ViewerClasses.ClickProc;

    LevelMenu: ViewerClasses.ClickProc;

    PreReset: ViewerClasses.ClickProc;
    Reset: ViewerClasses.ClickProc;

    Save: ViewerClasses.ClickProc;

    PreClear: ViewerClasses.ClickProc;
    Clear: ViewerClasses.ClickProc;

    NewButton: ViewerClasses.ClickProc;

    Store: ViewerClasses.ClickProc;

    PreLoadPrevious: ViewerClasses.ClickProc;
    PreviousFile: ViewerClasses.ClickProc;

    PreGetImpl: ViewerClasses.ClickProc;
    GetImpl: ViewerClasses.ClickProc;

    PreGet: ViewerClasses.ClickProc;
    Get: ViewerClasses.ClickProc;

    AnonymousLoadImpl: ViewerClasses.ClickProc;

    AnonymousLoad: ViewerClasses.ClickProc;

    OpenButton: ViewerClasses.ClickProc;

    Normalize: ViewerClasses.ClickProc;

    Position: ViewerClasses.ClickProc;

    Find: ViewerClasses.ClickProc;

    FindDef: ViewerClasses.ClickProc;

    FindWord: ViewerClasses.ClickProc;

    Time: ViewerClasses.ClickProc;

    Split: ViewerClasses.ClickProc;

    FewerLevels: ViewerClasses.ClickProc;

    MoreLevels: ViewerClasses.ClickProc;

    AllLevels: ViewerClasses.ClickProc;

    FirstLevelOnly: ViewerClasses.ClickProc;

    END.