version 1.12, 2005/10/02 11:30:32
|
version 1.16, 2006/12/31 13:39:12
|
Line 1
|
Line 1
|
\ ekey etc. |
\ ekey etc. |
|
|
\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc. |
\ Copyright (C) 1999,2002,2003,2004,2005,2006 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 219 set-current
|
Line 219 set-current
|
|
|
: 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. |
dup 256 u< ; |
dup k-left u< ; \ k-left must be first! |
|
|
' key? alias ekey? ( -- flag ) \ facility-ext e-key-question |
' key? alias ekey? ( -- flag ) \ facility-ext e-key-question |
\G True if a keyboard even is available. |
\G True if a keyboard event is available. |
|
|
\ : esc? ( -- flag ) recursive |
\ : esc? ( -- flag ) recursive |
\ key? 0= |
\ key? 0= |