<<>> <> <> <> <> <<>> 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.