IPViewers.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Eric Nickell, July 19, 1985 10:52:21 pm PDT
DIRECTORY
Imager USING [Context, Rectangle],
ViewerClasses USING [Viewer, ViewerRec];
IPViewers: CEDAR DEFINITIONS
~ BEGIN
IPViewer: TYPE ~ ViewerClasses.Viewer;
InvalidPage: ERROR;
Create: PROC [info: ViewerClasses.ViewerRec ← [], paint: BOOL ← TRUE, pages: CARDINAL ← 1] RETURNS [v: IPViewer];
Creates a new interpress viewer
SetNumberOfPages: PROC [v: IPViewer, pages: CARDINAL];
Changes the number of pages in the viewer. Old pages will be preserved.
DoActions: PUBLIC PROC [v: IPViewer, action: PROC [context: Imager.Context], page: CARDINAL ← 0];
Calls action with the context corresponding to the appropriate page number.
SetBounds: PUBLIC PROC [v: IPViewer, bounds: Imager.Rectangle, page: CARDINAL ← 0];
Set the client viewing region. Default is for 8.5x11 (but measured in meters).
GetContext: UNSAFE PROC [v: IPViewer, page: CARDINAL ← 0] RETURNS [context: Imager.Context];
For wizards only.
Note: For IPViewer v, setting v.icon ← private, the viewer will paint its display when in iconic form.
END.