RopeFileTest.mesa
Russ Atkinson, April 12, 1983 4:52 pm
DIRECTORY
PutGet,
Rope,
RopeFile,
TEditImpl,
TiogaMenuOps,
ViewerClasses,
ViewerOps,
ViewerTools;
RopeFileTest: CEDAR PROGRAM
IMPORTS PutGet, RopeFile, TEditImpl, TiogaMenuOps, ViewerOps, ViewerTools
= BEGIN
ROPE: TYPE = Rope.ROPE;
useMap: BOOLTRUE;
Open: PROC [name: ROPE] = {
rope: ROPE ← RopeFile.Create[name: name, useMap: useMap];
v: ViewerClasses.Viewer ← ViewerTools.MakeNewTextViewer[
info: [name: name, column: left, iconic: TRUE], paint: FALSE];
v.data ← PutGet.FromRope[rope];
v.file ← name;
TEditImpl.InitTEditDocument[v];
TiogaMenuOps.DefaultMenus[v];
ViewerOps.OpenIcon[v];
};
END.