<> <> 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: BOOL _ TRUE; 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.