DIRECTORY
GGCoreTypes, GGInterfaceTypes, Imager;

GGRefreshExtras: CEDAR DEFINITIONS = BEGIN

PaintInParent: PROC [ggData: GGData, paintAction: ATOM];

RegisterPaintProc: PROC [ggData: GGData, paintProc: PaintProc, clientData: REF _ NIL];
RepaintArea: PROC [screen: Imager.Context, ggData: GGData, whatHasChanged: ATOM, bounds: BoundBoxObj _ infiniteRect];

infiniteRect: BoundBoxObj = [0,0,0,0,FALSE,TRUE];
nullRect: BoundBoxObj = [0,0,0,0,TRUE,FALSE];
BoundBoxObj: TYPE = GGCoreTypes.BoundBoxObj;
GGData: TYPE = GGInterfaceTypes.GGData;
PaintProc: TYPE = PROC [ggData: GGData, request: REF _ NIL, bounds: BoundBoxObj _ infiniteRect, clientData: REF _ NIL];
END.

   ê  
GGRefreshExtras.mesa
Copyright c 1991 by Xerox Corporation.  All rights reserved.
Bier, September 23, 1991 11:00 pm PDT
Contents:  Experimental routines to be added eventually to GGRefresh.mesa.

Called by GGWindowImpl.RestoreScreenAndInvariants whenever scene update should be done.  Computes a bounding box and then requests the parent to paint it.
Associate the given PaintProc and clientData with this GGData.  This routine will be called by GGWindow.RestoreScreenAndInvariants

Like GGRefresh.ActionAreaPaint, but paints all of the area described by bounds, even if some of this area doesn't need to be painted.  If bounds.infinite, repaint the whole action area.  If bounds.null then repaint just what needs to be repainted.
The PaintProc will have to call these routines in MMM:
ParentPaintRequestProc: TYPE = PROC [parent: Editor, child: Editor, request: REF _ NIL, bounds: BoundRect _ BoxTypes.infiniteRect];
ParentPaintNotifyProc: TYPE = PROC [parent: Editor, requestor: Editor];
For example:
paintRequest _ NEW[PaintRequestObj _ [$PaintScene, self, NIL, noAction, otherLocn]];
MMMProtocol.ParentPaintRequest[self.parent, self, paintRequest,
Boxes.Intersection[userStatePrivate.dragBounds, self.bounds]];
where MMMProtocol.ParentPaintRequest calls parent.class.paintNotify after putting the request in child.paintRequests.
The PaintProc will have to call this routine in Gargoyle:
ViewerOps.PaintViewer[ viewer: ggData.controls.actionArea, hint: client,
whatChanged: ggData, clearClient: FALSE];

Ê¸  •NewlineDelimiter
™ Icodešœ™Kšœ
Ïmœ1™<Kšœ%™%KšœJ™JK™ šÏk	˜	Kšœ&˜&—K˜ Kšœžœžœž˜*K˜ šÏnœžœžœ˜8Kšœš™š—K˜ šŸœžœ4žœžœ˜VKšœ‚™‚K™ —šŸœžœ:žœ&˜uKšœ÷™÷K˜ —Kšœ%žœžœ˜1Kšœ!žœžœ˜-Kšœžœ˜,Kšœžœ˜'Kšœžœžœžœžœ2žœžœ˜wblock™6Lš	œžœžœ*žœžœ-™ƒLšœžœžœ%™G™Iunleadedšœžœ'žœ™Tšœ?™?Mšœ>™>——Lšœu™u—™9šœH™HMšœ"žœ™)M™ ——Kšžœ˜K˜ — …—    š  
<  