Install Pipal Run -a PipalTextEditorImpl _ &text _ PipalTextEditor.CreatePipalText["text", [400.0, 100.0]] _ &editor _ PipalTextEditor.Create[&text] _ &viewer _ PipalDisplay.CreateObjectViewer[&editor] _ ViewerOps.OpenIcon[&viewer] _ PipalTextEditor.InsertRope[&editor, "inserted "] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.SetSelection[&editor, [0, 9]] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.InsertRope[&editor, "more "] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.InsertChar[&editor, ' ] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.SetSelection[&editor, [0, 5], secondary] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Move[&editor] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.SetSelection[&editor, [1, 5], secondary] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Copy[&editor] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Transpose[&editor] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Delete[&editor] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Paste[&editor] _ ViewerOps.PaintViewer[&viewer, all] _ PipalTextEditor.Erase[&editor] _ ViewerOps.PaintViewer[&viewer, all] ΰTestPipalTextEditor.cm Copyright Σ 1988 by Xerox Corporation. All rights reserved. Louis Monier January 29, 1988 9:32:29 pm PST Bertrand Serlet January 31, 1988 4:51:04 pm PST Barth, February 3, 1988 4:33:48 pm PST ΚΨ˜šœ™Icode™