<<>>
    <<PPreView.mesa>>
        <<Copyright Ó 1989, 1990, 1992 by Xerox Corporation.  All rights reserved.>>
        <<Pier, January 3, 1991 2:45 pm PST>>
        <<>>
        <<This should be considered a Private interface. See PreViewClient.mesa for public uses. This interface ties together PreViewTool 
        and PreViewImpl, which would be one module if the compiler could handle a module of that size.>>
        <<>>
    DIRECTORY
        BasicTime, BiScrollers, Commander, Containers, Imager, ImagerColor, ImagerPixelArray, InterpressInterpreter, 
        RasterEncodingStandardIO, Real, Rope, Sliders, ViewerClasses;

    PPreView: CEDAR DEFINITIONS = BEGIN

    bsStyle: BiScrollers.BiScrollerStyle;

    SwitchRange: TYPE = CHAR['A..'Z];
    Switches: TYPE = PACKED ARRAY SwitchRange OF BOOLEAN;
    FileType: TYPE = {none, ip, ais, res, any};
    Data: TYPE = REF Rep;
    Rep: TYPE = RECORD [
        fileNames: NameList Ź NIL,
        xSize: REAL Ź 0.0,  
        ySize: REAL Ź 0.0, 
        mustBe: FileType Ź any,
        fileInfo: FileInfo Ź NIL,
        container: Containers.Container Ź NIL,
        preViewer: ViewerClasses.Viewer Ź NIL,
        clientPaint: ViewerClasses.PaintProc Ź NIL,    -- allow client use of Preview functions
        clientData: REF ANY Ź NIL,        -- passed to clientPaint as whatChanged
        selectionWViewer, selectionHViewer: ViewerClasses.Viewer Ź NIL,
        pageNumberViewer: ViewerClasses.Viewer Ź NIL,
        pageNumberSlider: Sliders.Slider Ź NIL,
        pageNumber: INTEGER Ź 1,
        lastPageNumber: INTEGER Ź 1,
        pageInMem: INTEGER Ź 0,-- which page is in iMemContext.
        iMemContext: Imager.Context Ź NIL, -- an ImagerMemory context
        pageHeight, pageWidth: REAL Ź 0.0,
        bBox: BBoxState Ź NIL,
        abort: BOOLEAN Ź FALSE,
        painting: BOOLEAN Ź FALSE,
        switches: Switches Ź ALL[FALSE],
        stuffWithBorders: BOOLEAN Ź FALSE,
        stuffWithFit: BOOLEAN Ź FALSE,
        kind: SELECT type: FileType FROM
            none => [],
            ip => [ipMaster: InterpressInterpreter.Master Ź NIL],
            ais => [state: AISState Ź NIL],
            res => [image: RasterEncodingStandardIO.RES],
            ENDCASE
        ];

    IPData: TYPE = REF ip Rep;
    AISData: TYPE = REF ais Rep;
    RESData: TYPE = REF res Rep;

    FileInfo: TYPE = REF FileInfoRep;
    FileInfoRep: TYPE = RECORD [
        filetype: FileType Ź none,
        fullFName: Rope.ROPE Ź NIL,
        created: BasicTime.GMT Ź BasicTime.nullGMT,
        ref: REF ANY Ź NIL
        ];

    AISState: TYPE = REF AISStateRep;
    AISStateRep: TYPE = RECORD [
        <<openFile: AIS.FRef _ NIL,>>
        op: ImagerColor.ColorOperator Ź NIL,
        pa: ImagerPixelArray.PixelArray Ź NIL,
        scans, pixels: NAT Ź 0, --lines per page, pixels per line
        active: BOOL Ź FALSE
        ];

    BBoxState: TYPE = REF BBoxStateRep;
    BBoxStateRep: TYPE = RECORD [
        active:                BOOL Ź FALSE,                        -- was there ever a mouse down?
        p0, p1:                Imager.VEC Ź [0.0, 0.0],                -- the min and max (x,y) points
        rect, prev:            Imager.Rectangle Ź [0, 0, 0, 0],    -- current and previous bounding boxes
        x0, x1, y0, y1, all:    BOOL Ź FALSE,                        -- corner, edge, or all picked by user?
        origin:                Imager.VEC Ź [0.0, 0.0]                -- intial mouse down point
        ];

    BBoxOp: TYPE = {stuff, ipMaster};
    NameList: TYPE = LIST OF Rope.ROPE;
    PaintOp: TYPE = {paint, remove, change};

    DoFileOps: PROC [op: BBoxOp, viewer: ViewerClasses.Viewer, data: Data, fileName: Rope.ROPE, clip: BOOL Ź TRUE];
    ResetProcess: PROC [data: Data];
    PVFeedback: PROC [data: Data, v: ViewerClasses.Viewer, op: PaintOp Ź paint];
    PVNotify: ViewerClasses.NotifyProc;
    PVPaint: ViewerClasses.PaintProc;
    PVDestroy: ViewerClasses.DestroyProc;
    PVGetName: ViewerClasses.GetProc;
    PVBasicTransformProc: BiScrollers.TransformGenerator;
    PVExtremaProc: BiScrollers.ExtremaProc;
    PVListRemove: PROC [ref: REF ANY];
    IPLogError: InterpressInterpreter.LogProc;

    IPPreView: Commander.CommandProc;
    RESPreView: Commander.CommandProc;
    AISPreView: Commander.CommandProc;
    AnyPreView: Commander.CommandProc;

    END.