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

Enable mouse in pterm (putty)

Browse Source
This commit is contained in:
Margers 2024-09-16 09:05:22 +00:00 committed by Michael Van Canneyt
parent 69e7ffadba
commit ca03194927
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl-console/src/unix/mouse.pp
View File

@ -181,7 +181,7 @@ begin
t:=i;
break;
end;
if t=xterm then
if t=xterm then
begin
{Rxvt sets TERM=xterm and COLORTERM=rxvt. Gnome does something similar.}
term:=fpgetenv('COLORTERM');
@ -229,7 +229,8 @@ begin
begin
{Use the xterm mouse, report all mouse events.}
gpm_fs:=-1003;
write(#27'[?1003h'); { enable mouse tracking }
write(#27'[?1002h'); { enable mouse down, up and drag tracking (putty pretend to be xterm but doesn't have _[?1003h mode)}
write(#27'[?1003h'); { enable mouse all motion tracking }
if not DisableSGRExtModeMouse then
write(#27'[?1006h'); { try to enable Extended/SGH 1006 mouse tracking }
end;
@ -271,7 +272,8 @@ begin
end;
-1003:
begin
write(#27'[?1003l'); { disable mouse tracking }
write(#27'[?1003l'); { disable mouse all motion tracking }
write(#27'[?1002l'); { disable mouse down, up and drag tracking }
if not DisableSGRExtModeMouse then
write(#27'[?1006l'); { disable Extended/SGH 1006 mouse tracking }
end;