[gforth] / gforth / ekey.fs  

gforth: gforth/ekey.fs

Diff for /gforth/ekey.fs between version 1.13 and 1.14

version 1.13, Sat Dec 31 15:46:08 2005 UTC version 1.14, Sun Apr 2 09:18:56 2006 UTC
Line 222 
Line 222 
     dup 256 u< ;      dup 256 u< ;
   
 ' 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=

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help