DIRECTORY Rope USING [ROPE], ViewerClasses USING [Viewer, ViewerRec]; AISViewer: CEDAR DEFINITIONS = BEGIN CreateAISViewer: PUBLIC PROC [info: ViewerClasses.ViewerRec _ [], paint: BOOL _ TRUE] RETURNS [new: ViewerClasses.Viewer]; ProgressProc: TYPE = PROC [scanStart, pixelStart, scans, pixels: CARDINAL, clientData: REF ANY _ NIL]; RPProc: TYPE = PROC [scanStart, pixelStart, scans, pixels: REAL, clientData: REF ANY _ NIL]; DisplayAIS: PUBLIC PROC [v: ViewerClasses.Viewer, fileName: Rope.ROPE _ NIL, wDir: Rope.ROPE _ NIL, allowSubWindow: BOOL _ FALSE, progressProc: ProgressProc _ NIL, rpProc: RPProc _ NIL, clientData: REF ANY _ NIL, paint: BOOL _ TRUE]; GetCurrentSubWindow: PUBLIC PROC [v: ViewerClasses.Viewer] RETURNS [scanStart, pixelStart, scans, pixels: CARDINAL, clientData: REF ANY _ NIL]; END. †AISViewer.mesa Last Edited by: Diebert, April 8, 1985 10:36:41 am PST Copyright (C) 1985, Xerox Corporation. All rights reserved. Creates a viewer for AIS files. This viewer scales the image to fit in the display window. Displays the named AIS file in the viewer. If fileName is not supplied, the viewer is cleared of any image. If allowSubWindow = TRUE, a sub window selector is provided. This selector is an XOR over the image. If progressProc or rpProc is specified a call is made at every mouse notify sending the subwindow parameters as subset of the original AIS image. Returns the current size and location of the subwindow. Êd˜JšÏn œ™J™6J™