SlatePrivateTypes.mesa
Copyright Ó 1992, 1993 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, December 7, 1992 11:33 am PST
Christian Jacobi, March 6, 1993 4:20 pm PST
DIRECTORY
List USING [LORA],
PropList USING [List],
SF USING [Vec],
Slate USING [EventProc];
SlatePrivateTypes: CEDAR DEFINITIONS ~
BEGIN
defaultPageSize: SF.Vec;
SessionPrivateRec:
TYPE =
RECORD [
callbacks: CallbackList ¬ NIL,
instanceList: PropList.List, --cheap list implementation
pageList: List.LORA --cheap list implementation
];
InstancePrivateRec:
TYPE =
RECORD [
callbacks: CallbackList ¬ NIL
];
CallbackList: TYPE = LIST OF CallbackRec;
CallbackRec:
TYPE =
RECORD [
event: REF ANY,
closures: ClosureList ¬ NIL
];
ClosureList: TYPE = LIST OF ClosureRec;
ClosureRec:
TYPE =
RECORD [
proc: Slate.EventProc, registerData: REF
];
END.