DIRECTORY Imager USING [Context], Rope USING [ROPE], ViewerClasses USING [DestroyProc, NotifyProc, Viewer, ViewerRec]; ImagerViewer: CEDAR DEFINITIONS ~ BEGIN OPEN Imager, ViewerClasses; Units: TYPE ~ {pixels, meters}; Create: PROC [info: ViewerRec, units: Units, v: Viewer _ NIL, clientData: REF ANY_ NIL] RETURNS [Context]; FancyCreate: PROC [info: ViewerRec, units: Units, v: Viewer _ NIL, notify: NotifyProc_ NIL, tipTable: Rope.ROPE_ NIL, destroy: DestroyProc_ NIL, clientData: REF ANY_ NIL] RETURNS [Context]; ClientDataFromViewer: PROC [viewer: Viewer] RETURNS [clientData: REF ANY_ NIL]; Clear: PROC [context: Context]; Erase: PROC [context: Context]; Reset: PROC [context: Context]; GetViewer: PROC [context: Context] RETURNS [Viewer]; END. bImagerViewer.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass, April 30, 1985 11:42:28 am PDT Tim Diebert: July 23, 1985 2:46:39 pm PDT Makes a context aimed at a viewer. Defaults to the "right" thing for any NILs. Makes a context aimed at a viewer. Defaults to the "right" thing for any NILs. Returns the client data. Must be called to get it back. It is not the viewer.data. Clears the viewer and resets the state of the imager variables. Erases the viewer without changing the imager variables. Resets the state of the imager variables without changing the screen. Κ˜code™Kšœ Οmœ1™