paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 04:10:41 +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; t:=i;
break; break;
end; end;
if t=xterm then if t=xterm then
begin begin
{Rxvt sets TERM=xterm and COLORTERM=rxvt. Gnome does something similar.} {Rxvt sets TERM=xterm and COLORTERM=rxvt. Gnome does something similar.}
term:=fpgetenv('COLORTERM'); term:=fpgetenv('COLORTERM');
@ -229,7 +229,8 @@ begin
begin begin
{Use the xterm mouse, report all mouse events.} {Use the xterm mouse, report all mouse events.}
gpm_fs:=-1003; 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 if not DisableSGRExtModeMouse then
write(#27'[?1006h'); { try to enable Extended/SGH 1006 mouse tracking } write(#27'[?1006h'); { try to enable Extended/SGH 1006 mouse tracking }
end; end;
@ -271,7 +272,8 @@ begin
end; end;
-1003: -1003:
begin 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 if not DisableSGRExtModeMouse then
write(#27'[?1006l'); { disable Extended/SGH 1006 mouse tracking } write(#27'[?1006l'); { disable Extended/SGH 1006 mouse tracking }
end; end;