
DIRECTORY
ViewerClasses;

GGContainer: CEDAR DEFINITIONS = BEGIN

GGContainerCreate: PROC [info: ViewerClasses.ViewerRec ¬ [], paint: BOOL ¬ TRUE] RETURNS [gargoyleContainer: ViewerClasses.Viewer];

ChildYBound: PROC [gargoyleContainer: ViewerClasses.Viewer, child: ViewerClasses.Viewer];

ChildXBound: PROC [gargoyleContainer: ViewerClasses.Viewer, child: ViewerClasses.Viewer];
GargoyleContainerSave:  ViewerClasses.SaveProc;
GargoyleContainerDestroy:  ViewerClasses.DestroyProc;
GargoyleContainerSet: ViewerClasses.SetProc;

END.
  (  
GGContainer.mesa
Last edited by Bier on June 5, 1985 10:41:44 pm PDT
Copyright Ó 1985, 1992 by Xerox Corporation.  All rights reserved.
Author: Eric Bier July 15, 1985 12:04:58 pm PDT
A container-type class for Gargoyle.
Pier, March 16, 1988 5:12:00 pm PST
Creates a new, empty container.  You probably want to pass a name in the info record.
constrain (child.wy + child.wh = gargoyleContainer.wh)
after next time gargoyleContainer is painted
constrain (child.wx + child.ww = gargoyleContainer.ww)
after next time gargoyleContainer is painted

 Ê2  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ0Ïk™3Kšœ	Ïeœ6™BKšÏnœ&™/šœ$™$Kšœ#™#——K˜ š	˜	Kšœ˜—K˜ KšŸœœœ˜&K˜ š
Ÿœœ-œœœ+˜ƒKšœU™UK˜ —šŸœœH˜YKšœ6™6Kšœ,™,K˜ —šŸœœH˜YKšœ6™6Kšœ,™,K™ —KšŸœ˜/KšŸœ˜5KšÐbnœ˜,K˜ Kšœ˜— …—      p  