gforth/ekey.fs - diff

Return to ekey.fs CVS log

Up to [gforth] / gforth

version 1.14, 2006/04/02 09:18:56	version 1.15, 2006/06/05 23:55:18
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 event is available.	\G True if a keyboard event is available.