TIPFriendsTypes.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, February 24, 1992 11:53 am PST
Types useful to friends of tip without revealing fancy operations
DIRECTORY
ScreenCoordsTypes USING [TIPScreenCoords],
UserInput USING [Handle];
TIPFriendsTypes:
CEDAR
DEFINITIONS ~
BEGIN
TIPScreenCoords: TYPE ~ ScreenCoordsTypes.TIPScreenCoords;
MouseEvent: TYPE = {buttonUp, buttonDown, motion};
TIPButtonProc:
TYPE =
PROC [
screenXY: TIPScreenCoords,
mouseEvent: MouseEvent,
state: UserInput.Handle,
clientData: REF ANY,
device: REF ANY,
user: REF ANY,
display: REF ANY,
eventSource: REF READONLY ANY
] RETURNS [consume: BOOL ¬ FALSE];
device, user, display passed from one of the involved UserInput actions
TIPNotifyProc:
TYPE =
PROC [results:
LIST
OF
REF
ANY, clientData, device, user, display:
REF
ANY, eventSource:
REF
READONLY ANY];
device, user, display passed from one of the involved UserInput actions
END.