<<>> <> <> <> <> <> <<>> DIRECTORY AtomButtonsTypes, Imager, Rope, ViewerClasses; GraphicsButton: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; GraphicsState: TYPE = AtomButtonsTypes.GraphicsState; GBChoiceList: TYPE = AtomButtonsTypes.GBChoiceList; HandleButtonProc: TYPE = AtomButtonsTypes.HandleButtonProc; UpdateGraphicsButtonProc: TYPE = AtomButtonsTypes.UpdateGraphicsButtonProc; RepaintProc: TYPE = AtomButtonsTypes.RepaintProc; <> BuildGraphicsButton: PROC [container: Viewer, x,y,w,h: INTEGER, clientData: REF ANY, choices: GBChoiceList, handleProc: HandleButtonProc, repaintProc: RepaintProc, buttonData: REF ANY ¬ NIL, updateProc: UpdateGraphicsButtonProc ¬ NIL] RETURNS [nextX: INTEGER]; SetButtonValueAndPaint: PROC [graphicsState: GraphicsState, clientData: REF ANY, buttonData: REF ANY ¬ NIL]; GetValue: PROC [graphicsState: GraphicsState] RETURNS [clientData: REF ANY, buttonData: REF ANY]; <<>> END.