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