edwin: Fixed arrow keys in xterms.

Added ts-enter/exit-keypad-mode and used them in console-enter/exit!.

diff --git a/src/edwin/termcap.scm b/src/edwin/termcap.scm
index be5ff78b951a5860ba90564cc8b1e5a17f7aac85..7daa828ddacd66568984a05e223e77180fa6cec7 100644 (file)
--- a/src/edwin/termcap.scm
+++ b/src/edwin/termcap.scm
@@ -101,10 +101,12 @@ USA.
   (ts-enter-insert-mode false read-only true)
   (ts-enter-standout-mode false read-only true)
   (ts-enter-termcap-mode false read-only true)
+  (ts-enter-keypad-mode false read-only true)
   (ts-exit-delete-mode false read-only true)
   (ts-exit-insert-mode false read-only true)
   (ts-exit-standout-mode false read-only true)
   (ts-exit-termcap-mode false read-only true)
+  (ts-exit-keypad-mode false read-only true)
   (ts-forward-scroll false read-only true)
   (ts-forward-scroll-multi false read-only true)
   (ts-insert-char false read-only true)
@@ -249,10 +251,12 @@ USA.
              ts-enter-insert-mode
              ts-enter-standout-mode
              (termcap-get-string "ti") ;ts-enter-termcap-mode
+             (termcap-get-string "ks") ;ts-enter-keypad-mode
              (termcap-get-string "ed") ;ts-exit-delete-mode
              (termcap-get-string "ei") ;ts-exit-insert-mode
              ts-exit-standout-mode
              (termcap-get-string "te") ;ts-exit-termcap-mode
+             (termcap-get-string "ke") ;ts-exit-keypad-mode
              ts-forward-scroll
              ts-forward-scroll-multi
              ts-insert-char

diff --git a/src/edwin/tterm.scm b/src/edwin/tterm.scm
index 9ae354ec75c6ff7cae08527cfb37a7070c4ce7af..0879913ef0b0b88d8e8c1cec367f6430723003fe 100644 (file)
--- a/src/edwin/tterm.scm
+++ b/src/edwin/tterm.scm
@@ -515,6 +515,7 @@ USA.
 (define (console-enter! screen)
   (add-event-receiver! event:console-resize resize-screen)
   (maybe-output screen (ts-enter-termcap-mode (screen-description screen)))
+  (maybe-output screen (ts-enter-keypad-mode (screen-description screen)))
   (set-screen-cursor-x! screen false)
   (set-screen-cursor-y! screen false))
 
@@ -524,6 +525,7 @@ USA.
     (move-cursor screen 0 (fix:-1+ (screen-y-size screen)))
     (exit-standout-mode screen)
     (exit-insert-mode screen)
+    (maybe-output screen (ts-exit-keypad-mode description))
     (maybe-output screen (ts-exit-termcap-mode description)))
   (output-port/flush-output console-i/o-port))