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 c 1985 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 Κ ˜code™Kšœ0Οk™3Kšœ Οmœ1™