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 2, 1988 5:09:13 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, 3]]
← ViewerOps.PaintViewer[&viewer, all]
← PipalTextEditor.InsertRope[&editor, "more "]
← ViewerOps.PaintViewer[&viewer, all]