TestPipalTextEditor.cm
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 29, 1988 9:32:29 pm PST
Bertrand Serlet February 15, 1988 2:46:39 pm PST
Barth, February 3, 1988 4:33:48 pm PST
Install Pipal
← &text ← PipalTextMutant.CreatePipalText["text", [400.0, 100.0]]
← &mutant ← PipalTextMutant.Create[&text]
← &viewer ← PipalEditor.CreateViewer[&mutant]
← ViewerOps.OpenIcon[&viewer]
← PipalTextMutant.InsertRope[&mutant, "inserted "]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.SetSelection[&mutant, [0, 9]]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.InsertRope[&mutant, "more "]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.InsertChar[&mutant, ' ]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.SetSelection[&mutant, [0, 5], secondary]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Move[&mutant]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.SetSelection[&mutant, [1, 5], secondary]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Copy[&mutant]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Transpose[&mutant]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Delete[&mutant]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Paste[&mutant]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextMutant.Erase[&mutant]
← ViewerOps.PaintViewer[&viewer, all]