luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.FORM.TERMINAL]

Browse source 
* NEW: Implement special keys translation.



git-svn-id: svn://localhost/gambas/trunk@7695 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2016-03-30 21:31:41 +00:00
parent 812467fbe0
commit da4868a408
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
comp/src/gb.form.terminal/.src/TerminalView/TerminalFilter_VT100.class
View file

@ -412,7 +412,47 @@ Public Sub InputTo(hView As TerminalView, hProcess As Process, iCode As Integer,
Case Key.Left
sText = If(hScreen.AppCursorKey, "\eOD", "\e[D")
Case Key.Space
sText = If(hScreen.AppCursorKey, "\eO ", " ")
Case Key.Tab
sText = If(hScreen.AppCursorKey, "\eO ", Key.Text)
Case Key.Enter
sText = If(hScreen.AppCursorKey, "\eOM", Key.Text)
Case Key.Insert
sText = "\e[2~"
Case Key.End
sText = "\e[4~"
Case Key.PageDown
sText = "\e[6~"
Case Key.Home
sText = "\e[1~"
Case Key.PageUp
sText = "\e[5~"
Case Key.F1
sText = "\eOP"
Case Key.F2
sText = "\eOQ"
Case Key.F3
sText = "\eOR"
Case Key.F4
sText = "\eOS"
Case Key.F5
sText = "\e[15~"
Case Key.F6
sText = "\e[17~"
Case Key.F7
sText = "\e[18~"
Case Key.F8
sText = "\e[19~"
Case Key.F9
sText = "\e[20~"
Case Key.F10
sText = "\e[21~"
Case Key.F11
sText = "\e[23~"
Case Key.F12
sText = "\e[24~"
End Select
Endif