<<>> <> <> <> <> <> <> DIRECTORY Cursors, Icons, Menus, TIPUser, ViewerClasses; MJSContainers: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ViewerRec: TYPE = ViewerClasses.ViewerRec; MJSContainer: TYPE = Viewer; <> <> <> <> MJSContainerClass: TYPE = REF MJSContainerClassRep; MJSContainerClassRep: TYPE = RECORD [ notify: ViewerClasses.NotifyProc ¬ NIL, paint: ViewerClasses.PaintProc ¬ NIL, modify: ViewerClasses.ModifyProc ¬ NIL, destroy: ViewerClasses.DestroyProc ¬ NIL, copy: ViewerClasses.CopyProc ¬ NIL, set: ViewerClasses.SetProc ¬ NIL, get: ViewerClasses.GetProc ¬ NIL, init: ViewerClasses.InitProc ¬ NIL, save: ViewerClasses.SaveProc ¬ NIL, caption: ViewerClasses.CaptionProc ¬ NIL, adjust: ViewerClasses.AdjustProc ¬ NIL, childAdjust: ChildAdjustProc ¬ NIL, menu: Menus.Menu ¬ NIL, tipTable: TIPUser.TIPTable ¬ NIL, icon: Icons.IconFlavor ¬ document, cursor: Cursors.CursorType ¬ textPointer, dontAdjustIconic: BOOL ¬ TRUE <> ]; ChildAdjustProc: TYPE = PROC [parent, child: Viewer] RETURNS [viewerToPaint: Viewer ¬ NIL, paintColumn: BOOL ¬ FALSE]; <> RegisterClass: PROC [viewerFlavor: ATOM, class: MJSContainerClass]; <> <> <> GetClass: PROC [viewerFlavor: ATOM] RETURNS [class: MJSContainerClass]; <> Create: PROC [viewerFlavor: ATOM, info: ViewerRec ¬ [], paint: BOOL ¬ TRUE] RETURNS [container: MJSContainer]; <> ChildYBound: PROC [container: MJSContainer, child: Viewer]; <> ChildXBound: PROC [container: MJSContainer, child: Viewer]; <> FlushChildX, FlushChildY: PROC [child: Viewer] RETURNS [changed: BOOL]; <> NoteSize: PROC [container: MJSContainer, mayPaint: BOOL] RETURNS [change: BOOL]; <> <> <> <> <> <> <<>> NoteChildSize: PROC [child: Viewer] RETURNS [viewerToPaint: Viewer, paintColumn: BOOL]; <> <> <> ScrollOffset: PROC [container: MJSContainer] RETURNS [offTop: INTEGER] ; <> HScrollOffset: PROC [container: MJSContainers.MJSContainer] RETURNS [offLeft: INTEGER] ; <> GetClientData: PROC [container: MJSContainer] RETURNS [clientData: REF ANY]; IsMJSContainer: PROC [viewer: Viewer] RETURNS [BOOL]; END.