Diff for /gforth/ekey.fs between versions 1.2 and 1.4

version 1.2, 1999/12/03 18:35:15 version 1.4, 2000/12/28 11:33:02
Line 16 Line 16
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
   
   
 \ this implementation of EKEY just translates VT100/ANSI escape  \ this implementation of EKEY just translates VT100/ANSI escape
Line 41  keycode k-up Line 41  keycode k-up
 keycode k-down  keycode k-down
 keycode k-home  keycode k-home
 keycode k-end  keycode k-end
 \ keycode k-prior \ note: captured by xterm  keycode k-prior \ note: captured by xterm
 \ keycode k-next \ note: captured by xterm  keycode k-next \ note: captured by xterm
 keycode k-insert \ not in pfe  keycode k-insert \ not in pfe
   127 constant k-delete \ not an escape sequence on my xterm, so use ASCII code
 \ function/keypad keys  \ function/keypad keys
 keycode k1  keycode k1
 keycode k2  keycode k2
Line 156  get-current esc-sequences set-current Line 157  get-current esc-sequences set-current
 ' k-down        s" [B"  esc-sequence  ' k-down        s" [B"  esc-sequence
 ' k-home        s" [H"  esc-sequence  ' k-home        s" [H"  esc-sequence
 ' k-end         s" [F"  esc-sequence  ' k-end         s" [F"  esc-sequence
 \ ' k-prior     s" [5~" esc-sequence \ from linux console  ' k-prior       s" [5~" esc-sequence
 \ ' k-next      s" [6~" esc-sequence \ from linux console  ' k-next        s" [6~" esc-sequence
 ' k-insert      s" [2~" esc-sequence  ' k-insert      s" [2~" esc-sequence
   
 ' k1    s" OP"  esc-sequence  ' k1    s" OP"  esc-sequence
Line 173  get-current esc-sequences set-current Line 174  get-current esc-sequences set-current
 ' k11   s" [23~" esc-sequence  ' k11   s" [23~" esc-sequence
 ' k12   s" [24~" esc-sequence  ' k12   s" [24~" esc-sequence
   
   \ esc sequences from Linux console:
   
   ' k1       s" [[A" esc-sequence
   ' k2       s" [[B" esc-sequence
   ' k3       s" [[C" esc-sequence
   ' k4       s" [[D" esc-sequence
   ' k5       s" [[E" esc-sequence
   ' k-delete s" [3~" esc-sequence
   ' k-home   s" [1~" esc-sequence
   ' k-end    s" [4~" esc-sequence
   
 set-current  set-current
 [ENDIF]  [ENDIF]
   

Removed from v.1.2  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>