<> <> <> <<>> 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.