version 1.23, 2008/11/23 21:09:55
|
version 1.26, 2009/12/31 15:32:35
|
Line 1
|
Line 1
|
\ ekey etc. |
\ ekey etc. |
|
|
\ Copyright (C) 1999,2002,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc. |
\ Copyright (C) 1999,2002,2003,2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 331 s-k6 s" [32~" esc-sequence
|
Line 331 s-k6 s" [32~" esc-sequence
|
s-k7 s" [33~" esc-sequence |
s-k7 s" [33~" esc-sequence |
s-k8 s" [34~" esc-sequence |
s-k8 s" [34~" esc-sequence |
|
|
|
\ esc sequences for MacOS X iterm <e7a7c785-3bea-408b-94e9-4b59b008546f@x16g2000prn.googlegroups.com> |
|
k-left s" OD" esc-sequence |
|
k-right s" OC" esc-sequence |
|
k-up s" OA" esc-sequence |
|
k-down s" OB" esc-sequence |
|
|
set-current |
set-current |
[ENDIF] |
[ENDIF] |
|
|
Line 382 set-current
|
Line 388 set-current
|
\G keyboard event @var{u1} into key id @var{u2} and return true; |
\G keyboard event @var{u1} into key id @var{u2} and return true; |
\G otherwise return @var{u1} and false. |
\G otherwise return @var{u1} and false. |
ekey>xchar 0= ; |
ekey>xchar 0= ; |
|
|
|
' xkey? alias ekey? ( -- flag ) \ facility-ext e-key-question |
[ELSE] |
[ELSE] |
: ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char |
: ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char |
\G Convert keyboard event @var{u} into character @code{c} if possible. |
\G Convert keyboard event @var{u} into character @code{c} if possible. |
Line 391 set-current
|
Line 399 set-current
|
\G keyboard event @var{u1} into key id @var{u2} and return true; |
\G keyboard event @var{u1} into key id @var{u2} and return true; |
\G otherwise return @var{u1} and false. |
\G otherwise return @var{u1} and false. |
ekey>char 0= ; |
ekey>char 0= ; |
[THEN] |
|
|
|
' key? alias ekey? ( -- flag ) \ facility-ext e-key-question |
' key? alias ekey? ( -- flag ) \ facility-ext e-key-question |
|
[THEN] |
|
|
\G True if a keyboard event is available. |
\G True if a keyboard event is available. |
|
|
\ : esc? ( -- flag ) recursive |
\ : esc? ( -- flag ) recursive |