<> <> <> <> DIRECTORY ViewerClasses USING [Viewer], Rope USING [ROPE], Imager USING [Context, Color]; <<>> ColorSchemeViewer: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE = Rope.ROPE; Viewer: TYPE = ViewerClasses.Viewer; NotifyProc: TYPE = PROC [values: ARRAY [1..3] OF REAL, changes: Changes, client: REF]; <> Create: PROC [labels: ARRAY [1..3] OF ROPE, sw, sh: INT, notify: NotifyProc, title: ROPE _ NIL, clientData: REF _ NIL, parent: Viewer _ NIL, wx, wy: INTEGER _ 0] RETURNS [Viewer]; SetValues: PROC [viewer: Viewer, values: ARRAY [1..3] OF REAL, notify: BOOLEAN _ FALSE] RETURNS [Changes]; <> GetValues: PROC[viewer: Viewer] RETURNS[v1, v2, v3: REAL]; Changes: TYPE = {none, v1, v2, v3, allValues, paintViewer}; Paint: PROC[viewer: Viewer, context: Imager.Context, whatChanged: Changes]; SetSliderColors: PROC [viewer: Viewer, colors: ARRAY [1..3] OF Imager.Color]; <> END.