GGTestChildImpl.mesa
Copyright © 1988 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.
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.