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. >RopeFileTest.mesa Russ Atkinson, April 12, 1983 4:52 pm Êö˜Jšœ™Jšœ%™%J˜šÏk ˜ J˜J˜J˜ J˜ J˜ J˜J˜ Jšœ ˜ J˜—šœœ˜JšœB˜IJšœ˜J˜Jšœœœ˜Jšœœœ˜šÏnœœœ˜Jšœœ/˜9šœ8˜8Jšœ)œ œ˜>—J˜Jšœ˜J˜J˜Jšœ˜J˜J˜—Jšœ˜J˜—J˜—…—^’