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.

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

IMPORTS MJSContainers, GGScene, GGWindow, ViewerOps

EXPORTS = BEGIN

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

};