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. Κ 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 Κ€•NewlineDelimiter ™™J™BJ™:J™+J™—codešΟk ˜ Kšœœœ˜Kšœ œ˜Kšœœ˜Kšœœ ˜K˜—JšΟnœœ œ˜&Kš˜K˜Kšœœ˜K˜šœœœ˜"Kšœœ˜K˜8KšœœΟc˜/K˜—K˜šœœœ˜#Kšœ˜K˜K˜—Kšœœœœ ˜)šœ œœ˜Kšœœœ˜Kšœ˜K˜K˜—Kšœ œœœ ˜'šœ œœ˜Kšœ%˜(K˜K˜—Kšœ˜K˜K˜K˜—…—ŒΦ