<> <> <> <> <> <<>> DIRECTORY GGInterfaceTypes, Rope, ViewerClasses; GGGraphicsButton: CEDAR DEFINITIONS = BEGIN GraphicsState: TYPE = REF GraphicsStateObj; GraphicsStateObj: TYPE = GGInterfaceTypes.GraphicsStateObj; BuildGraphicsButton: PROC [viewer: ViewerClasses.Viewer, x,y,w,h: INTEGER, name: Rope.ROPE, initValue: REAL, clientData: REF ANY, atom: ATOM] RETURNS [nextX: INTEGER]; SetButtonValueAndPaint: PROC [graphicsState: GraphicsState, value: REAL]; GetValue: PROC [graphicsState: GraphicsState] RETURNS [value: REAL]; <<>> END.