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
DIRECTORY
ViewerClasses;
GGContainer: CEDAR DEFINITIONS = BEGIN
GGContainerCreate: PROC [info: ViewerClasses.ViewerRec ¬ [], paint: BOOL ¬ TRUE] RETURNS [gargoyleContainer: ViewerClasses.Viewer];
Creates a new, empty container. You probably want to pass a name in the info record.
ChildYBound: PROC [gargoyleContainer: ViewerClasses.Viewer, child: ViewerClasses.Viewer];
constrain (child.wy + child.wh = gargoyleContainer.wh)
after next time gargoyleContainer is painted
ChildXBound: PROC [gargoyleContainer: ViewerClasses.Viewer, child: ViewerClasses.Viewer];
constrain (child.wx + child.ww = gargoyleContainer.ww)
after next time gargoyleContainer is painted
GargoyleContainerSave: ViewerClasses.SaveProc;
GargoyleContainerDestroy: ViewerClasses.DestroyProc;
GargoyleContainerSet: ViewerClasses.SetProc;
END.