paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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;
p:=PVideoCell(VideoBuf);
pold:=PVideoCell(OldVideoBuf);
{ init Attr and X,Y }
SendEscapeSeq(#27'[m'{#27'[H'});
{ init Attr, X,Y and set autowrap off }
SendEscapeSeq(#27'[m'#27'[?7l'{#27'[H'} );
LastAttr:=7;
LastX:=-1;
LastY:=-1;
@ -479,6 +479,8 @@ begin
fdWrite(TTYFd,outbuf,outptr);
if InACS then
SendEscapeSeqNdx(exit_alt_charset_mode);
{turn autowrap on}
SendEscapeSeq(#27'[?7h');
end;
var
@ -824,7 +826,10 @@ initialization
end.
{
$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
Revision 1.11 2002/07/06 16:50:17 marco