-- File: SVViewerInput.mesa
-- Last edited by Bier on December 18, 1982 1:45 am
-- Author: Eric Bier on March 22, 1983 3:09 pm
-- Contents: Procedures for responding to button clicks made in a solidviewer

DIRECTORY
 SV2d,
 SVBoundBox,
 SVViewerTool,
 ViewerClasses;
 
SVViewerInput: DEFINITIONS =
BEGIN

BoundBox: TYPE = SVBoundBox.BoundBox;
Point2d: TYPE = SV2d.Point2d;
ViewerToolData: TYPE = SVViewerTool.ViewerToolData;

InputNotify: SAFE PROCEDURE [self: ViewerClasses.Viewer, input: LIST OF REF ANY];

StartPrimarySelection: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
SetPrimarySelection: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
StartSecondarySelection: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
SetSecondarySelection: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
EndSecondarySelection: PROC [viewerToolData: ViewerToolData, controlPoint: Point2d];
PositionUpLeft: PROC [viewerToolData: ViewerToolData, controlPoint: Point2d];
PositionDownRight: PROC [viewerToolData: ViewerToolData, controlPoint: Point2d];
ComplementBoundBox: PROC [boundBox: BoundBox, viewerToolData: ViewerToolData];


END.