[gforth] / gforth / ekey.fs  

gforth: gforth/ekey.fs

Diff for /gforth/ekey.fs between version 1.23 and 1.24

version 1.23, Sun Nov 23 21:09:55 2008 UTC version 1.24, Mon Nov 24 15:35:24 2008 UTC
Line 382 
Line 382 
 \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 
Line 393 
 \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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help