TiogaDisplayTest.mesa; written by S. McGregor
Edited by McGregor on July 28, 1983 9:21 am
DIRECTORY
Graphics,
Menus,
ViewerClasses,
ViewerOps;
TiogaDisplayTest: CEDAR PROGRAM
IMPORTS Graphics, Menus, ViewerOps =
BEGIN OPEN ViewerClasses;
TiogaTestPaint: PaintProc =
BEGIN
OPEN Graphics;
END;
TiogaTestInit: InitProc =
BEGIN
END;
ClearAndPaint: Menus.MenuProc =
BEGIN
ViewerOps.PaintViewer[NARROW[parent], client];
END;
LoadFileAndPaint: Menus.MenuProc =
BEGIN
END;
tiogaTestClass: ViewerClasses.ViewerClass ←
NEW[ViewerClasses.ViewerClassRec ← [
init: TiogaTestInit,
paint: TiogaTestPaint
]];
tiogaTestMenu: Menus.Menu ← Menus.CreateMenu[];
ViewerOps.RegisterViewerClass[$TiogaTest, tiogaTestClass]; -- plug in to Viewers
Menus.AppendMenuEntry[tiogaTestMenu, Menus.CreateEntry["ClearAndPaint", ClearAndPaint]];
Menus.AppendMenuEntry[tiogaTestMenu, Menus.CreateEntry["LoadFileAndPaint", LoadFileAndPaint]];
[] ← ViewerOps.CreateViewer[$TiogaTest, [name: "No Name", menu: tiogaTestMenu]];
END.