<> <> <> <<>> DIRECTORY Buttons USING [ButtonProc], Trc USING [Rectangle, TRC], ViewerClasses USING [Viewer, ViewerRec]; TrcButtons: CEDAR DEFINITIONS ~ BEGIN Create: PROC [trc: Trc.TRC, rectangle: Trc.Rectangle, dx: REAL, info: ViewerClasses.ViewerRec, proc: Buttons.ButtonProc, clientData: REF _ NIL, fork: BOOL _ TRUE, paint: BOOL _ TRUE] RETURNS [button: ViewerClasses.Viewer]; <> <> AttachNewTrcToButton: PROC [button: ViewerClasses.Viewer, trc: Trc.TRC, paint: BOOL _ TRUE]; <> TrcFromButton: PROC [button: ViewerClasses.Viewer] RETURNS [trc: Trc.TRC]; <> END.