@@ -79,7 +79,7 @@ TYPE (* in alphabetical order *)
7979 Editor = FormsVBT.T OBJECT
8080 (* The components to which we need fast access *)
8181 buffer : TextEditVBT.T;
82- stderr : TextEditVBT.T;
82+ stdErr : TextEditVBT.T;
8383 errorPopup: ZChassisVBT.T;
8484 (* The internals of the buffer *)
8585 textport: EPort;
@@ -593,7 +593,7 @@ PROCEDURE EditorInit (ed: Editor; frame: T): Editor RAISES {FormsVBT.Error} =
593593 Manpage.Init (ed, HelpFile, NEW (ER, ed := ed), helpcase := NIL ,
594594 path := formseditPath);
595595 ed.buffer := FormsVBT.GetVBT (ed, "buffer" );
596- ed.stderr := FormsVBT.GetVBT (ed, "stderr" );
596+ ed.stdErr := FormsVBT.GetVBT (ed, "stderr" );
597597 ed.errorPopup := FormsVBT.GetVBT (ed, "errorPopup" );
598598 ed.textport := ed.buffer.tp;
599599 ed.vtext := TextPort.GetVText (ed.textport);
@@ -987,7 +987,7 @@ PROCEDURE Gripe (ed: Editor; fmt: TEXT; a, b, c, d, e: TEXT := NIL) =
987987 <* LL = VBT.mu *>
988988 BEGIN
989989 IF a # NIL THEN fmt := Fmt.F (fmt, a, b, c, d, e) END ;
990- TextPort.SetText (ed.stderr .tp, fmt);
990+ TextPort.SetText (ed.stdErr .tp, fmt);
991991 ZChildVBT.Pop (ed.errorPopup);
992992 EVAL Thread.Fork (NEW (Edown, stackSize := 3000 , ed := ed))
993993 END Gripe;
@@ -1012,7 +1012,7 @@ PROCEDURE ClearError (ed: Editor) =
10121012 <* FATAL FormsVBT.Error *> (* "errorPopup" exists. *)
10131013 BEGIN
10141014 FormsVBT.PopDown (ed, "errorPopup" );
1015- TextPort.SetText (ed.stderr .tp, "" )
1015+ TextPort.SetText (ed.stdErr .tp, "" )
10161016 END ClearError;
10171017
10181018PROCEDURE NoteModification (eport: EPort) =
0 commit comments