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]; SetNumberOfPages: PROC [v: IPViewer, pages: CARDINAL]; DoActions: PUBLIC PROC [v: IPViewer, action: PROC [context: Imager.Context], page: CARDINAL _ 0]; SetBounds: PUBLIC PROC [v: IPViewer, bounds: Imager.Rectangle, page: CARDINAL _ 0]; GetContext: UNSAFE PROC [v: IPViewer, page: CARDINAL _ 0] RETURNS [context: Imager.Context]; END. IPViewers.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Eric Nickell, July 19, 1985 10:52:21 pm PDT Creates a new interpress viewer Changes the number of pages in the viewer. Old pages will be preserved. Calls action with the context corresponding to the appropriate page number. Set the client viewing region. Default is for 8.5x11 (but measured in meters). For wizards only. Note: For IPViewer v, setting v.icon _ private, the viewer will paint its display when in iconic form. Κ5˜™Icodešœ Οmœ1™