TIPTableAccessImpl.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Bier, March 4, 1993 12:27 pm PST
Christian Jacobi, February 18, 1992 8:08 pm PST
Contents: Routines for creating and accessing fast TIP tables. Formerly called TIPTableAccessImpl.
DIRECTORY
Process, TIPTableAccess, TIPPrivateTypes, TIPTypes;
TIPTableAccessImpl:
CEDAR
PROGRAM
IMPORTS
EXPORTS TIPTableAccess, TIPTypes = BEGIN
TIPTable: TYPE ~ TIPTypes.TIPTable;
TIPTableRep: PUBLIC TYPE ~ TIPPrivateTypes.TIPTableRep;
GetMouseTicks:
PUBLIC
PROC [table: TIPTable]
RETURNS [mouseTicks: Process.Milliseconds] = {
mouseTicks ¬ table.mouseTicks;
};
SetMouseTicks:
PUBLIC
PROC [table: TIPTable, mouseTicks: Process.Milliseconds] = {
table.mouseTicks ¬ mouseTicks;
};
GetOpaque:
PUBLIC
PROC [table: TIPTable]
RETURNS [opaque:
BOOL] = {
opaque ¬ table.opaque;
};
SetOpaque:
PUBLIC
PROC [table: TIPTable, opaque:
BOOL] = {
table.opaque ¬ opaque;
};
GetTimeInterest:
PUBLIC
PROC [table: TIPTable]
RETURNS [timeInterest:
BOOL] = {
timeInterest ¬ FALSE; -- for now, Bier, March 4, 1993 12:24:54 pm PST
};
SetTimeInterest:
PUBLIC
PROC [table: TIPTable, timeInterest:
BOOL] = {
};
END.