VT100TerminalView.st
branchjv
changeset 5568 a44d0289bfbf
parent 5245 32078de67b14
child 5814 70d07365a2d4
--- a/VT100TerminalView.st	Tue Jun 13 14:44:00 2017 +0100
+++ b/VT100TerminalView.st	Tue Jun 20 21:27:06 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -148,10 +146,30 @@
 
 documentation
 "
-    A VT100 terminal emulator.
+    A VT100 / XTerm terminal emulator.
     Most of the functionality is inherited from my superclass,
-    I redefine/specialize certain methods for VT100 escape sequences
-    and vt100 keyboard codes
+    I redefine/specialize certain methods for VT100 / XTerm escape sequences
+    and VT100 / XTerm keyboard codes
+
+    == Keyboard Debugging ==
+
+    In case some keys does not work as expected, do the folowing:
+
+        1. Turn on keyboard debugging by evaluating:
+
+              DebugKeyboard := false
+
+        2. Check what it actually sends to the program.
+
+        3. Open proper XTerm and run:
+
+              export TERM=xterm
+              tput smkx; cat
+
+           Then press desired key and see what is its keycode. 
+
+        4. Update #vt100KeyCodes / #xtermKeyCodes accordingly
+
 
     BUGS:
         VT100 wrapMode (at right margin) is not supported
@@ -236,10 +254,11 @@
              #CursorLeft  '\e[D'
 
              #Home        '\e[H'
+             #End         '\e[F'
              #Escape      '\e'
              #BackSpace   '\b'
              #Return      '\r'
-             #Delete      '\0177'
+             #Delete      '\e[3~'
              #Tab         '\t'
 
              #F1          '\eOP'
@@ -253,8 +272,9 @@
              #F9          '\eOw'
          )
 
-    "Created: / 10.6.1998 / 15:13:01 / cg"
-    "Modified: / 5.5.1999 / 15:01:32 / cg"
+    "Created: / 10-06-1998 / 15:13:01 / cg"
+    "Modified: / 05-05-1999 / 15:01:32 / cg"
+    "Modified (comment): / 20-06-2017 / 21:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VT100TerminalView methodsFor:'functions'!
@@ -1325,5 +1345,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !