paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added wrapoff to avoid problems in the ide with some terminal emulators

Browse Source
This commit is contained in:
armin 2003-03-26 12:45:21 +00:00
parent b99d1fd23a
commit fff0626008
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/video.pp
View File

@ -397,8 +397,8 @@ begin
skipped:=true; skipped:=true;
p:=PVideoCell(VideoBuf); p:=PVideoCell(VideoBuf);
pold:=PVideoCell(OldVideoBuf); pold:=PVideoCell(OldVideoBuf);
{ init Attr and X,Y } { init Attr, X,Y and set autowrap off }
SendEscapeSeq(#27'[m'{#27'[H'}); SendEscapeSeq(#27'[m'#27'[?7l'{#27'[H'} );
LastAttr:=7; LastAttr:=7;
LastX:=-1; LastX:=-1;
LastY:=-1; LastY:=-1;
@ -479,6 +479,8 @@ begin
fdWrite(TTYFd,outbuf,outptr); fdWrite(TTYFd,outbuf,outptr);
if InACS then if InACS then
SendEscapeSeqNdx(exit_alt_charset_mode); SendEscapeSeqNdx(exit_alt_charset_mode);
{turn autowrap on}
SendEscapeSeq(#27'[?7h');
end; end;
var var
@ -824,7 +826,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.12 2002-09-07 16:01:28 peter Revision 1.13 2003-03-26 12:45:21 armin
* added wrapoff to avoid problems in the ide with some terminal emulators
Revision 1.12 2002/09/07 16:01:28 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.11 2002/07/06 16:50:17 marco Revision 1.11 2002/07/06 16:50:17 marco