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
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]