<> <> <> <> <> DIRECTORY SV2d, SVInterfaceTypes, SweepGeometry, ViewerClasses; Scratchpad2d: DEFINITIONS = BEGIN EditToolData: TYPE = SVInterfaceTypes.EditToolData; Path: TYPE = SV2d.Path; Point2d: TYPE = SV2d.Point2d; ScratchpadData: TYPE = SVInterfaceTypes.ScratchpadData; Viewer: TYPE = ViewerClasses.Viewer; CreateScratchpad: PROC [parent: Viewer, editToolData: EditToolData] RETURNS [container: Viewer, scratchpad: Viewer]; GetPath: PROC [self: Viewer] RETURNS [path: Path]; MoveLinPoint: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveRevoPoint: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveLinStart: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveRevoStart: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; END.