<> <> <> <<>> DIRECTORY ViewerClasses USING [Viewer, ViewerRec]; CIEViewer: CEDAR DEFINITIONS = BEGIN Viewer: TYPE=ViewerClasses.Viewer; CIEProc: TYPE = PROCEDURE[self: Viewer, x,y,Y: REAL, clientData: REF ANY _ NIL]; <> Create: PUBLIC PROCEDURE [info: ViewerClasses.ViewerRec _ [], sliderWidth, sliderHeight: CARDINAL, proc: CIEProc, clientData: REF ANY _ NIL, maxY, initR, initG, initB: REAL _ 1 ] RETURNS [cieViewer: Viewer]; <> Reinitialize: PUBLIC PROCEDURE [cieViewer: Viewer, xr,yr,xg,yg,xb,yb,whiteY: REAL]; <> GetContents: PUBLIC PROCEDURE [cieViewer: Viewer] RETURNS [x,y, Y: REAL]; SetContents: PUBLIC PROCEDURE [cieViewer: Viewer, x,y,Y: REAL]; END.