<> <> <> <> <> <<>> DIRECTORY Intime USING [EventTime], Process USING [Milliseconds], Rope USING [ROPE]; TIPUser: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; TIPTable: TYPE ~ REF TIPTableRep; TIPTableRep: TYPE ~ RECORD [ link: TIPTable _ NIL, opaque: BOOL _ TRUE, mouseTicks: Process.Milliseconds _ 50, impl: REF TIPTableImplRep ]; TIPTableImplRep: TYPE; TIPScreenCoords: TYPE ~ REF TIPScreenCoordsRec; TIPScreenCoordsRec: TYPE ~ RECORD [mouseX: INTEGER, mouseY: INTEGER, color: BOOL]; <> <<>> TIPTime: TYPE ~ REF Intime.EventTime; <<>> InstantiateNewTIPTable: PROC [file: ROPE _ NIL] RETURNS [table: TIPTable]; <> InvalidTable: SIGNAL [errorMsg: ROPE]; TransparentTIPTable: PROC RETURNS [table: TIPTable]; <> TIPPredicate: TYPE ~ PROC RETURNS [BOOL]; RegisterTIPPredicate: PROC [key: ATOM, p: TIPPredicate]; <> END.