DIRECTORY
MJSContainers, GGInterfaceTypes, GGScene, GGWindow, ViewerClasses, ViewerOps;

GGTestChildImpl: CEDAR PROGRAM
IMPORTS MJSContainers, GGScene, GGWindow, ViewerOps
EXPORTS  = BEGIN

GGData: TYPE = GGInterfaceTypes.GGData;

Main: PROC = {
container: ViewerClasses.Viewer ¬ MJSContainers.Create[viewerFlavor: $VanillaMJSContainer, info: [name: "Test Gargoyle Child", iconic: TRUE, scrollable: FALSE], paint: FALSE];
child: ViewerClasses.Viewer;
ggData: GGData;
[child, ggData] ¬ GGWindow.CreateChildViewer[scene: GGScene.CreateScene[], workingDirectory: "///Users/Bier.pa/Gargoyle/", parent: container, paint: TRUE];
MJSContainers.ChildYBound[container, child];
MJSContainers.ChildXBound[container, child];
ViewerOps.PaintViewer[container, caption]; -- just to get the icon to appear
};

END.

   Î  
GGTestChildImpl.mesa
Copyright Ó 1988, 1992 by Xerox Corporation.  All rights reserved.
Last edited by Bier on June 25, 1989 2:12:40 pm PDT
Contents:  Tests the GGWindow.CreateChildViewer command.

 Ê  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ	Ïeœ6™BKšœ3™3Kšœ8™8K™ —šÏk	˜	KšœM˜M—K˜ šœžœž˜Kšžœ,˜3Kšžœž˜—K˜ Kšœžœ˜'K˜ šÏnœžœ˜Kšœ‡žœžœ
žœ˜¯Kšœ˜K˜Kšœ•žœ˜›Kšœ,˜,Kšœ,˜,Kšœ+Ïc!˜LK˜K˜ —Kšžœ˜K˜ — …—         