File: SVUserInput.mesa
Last edited by Bier on May 4, 1987 5:36:30 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Contents: Procedures for responding to button clicks made in a solidviewer
DIRECTORY
SlackProcess, SV2d, SVBasicTypes, SVInterfaceTypes, SVModelTypes, ViewerClasses;
SVUserInput: CEDAR DEFINITIONS =
BEGIN
BoundBox: TYPE = SVBasicTypes.BoundBox;
Camera: TYPE = SVModelTypes.Camera;
Point2d: TYPE = SV2d.Point2d;
SVData: TYPE = SVInterfaceTypes.SVData;
InputNotify:
PROC [self: ViewerClasses.Viewer, input:
LIST
OF
REF
ANY];
Find parent of skitter.assembly if any. Set skitter.assembly to this value. Indicate the selection by changing the name in the "Current:" slot of the edittool.
EventNotify: PROC [clientData: REF ANY, event: LIST OF REF ANY];
ArgumentType: TYPE = {none, rope, refInt, refReal};
EventProc: TYPE = PROC [event: LIST OF REF ANY, svData: SVData];
RegisterAction: PROC [atom: ATOM, eventProc: EventProc, argType: ArgumentType];
END.