gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.61, 2007/07/01 20:01:32	version 1.62, 2007/07/19 13:28:18
Line 203 require utf-8.fs	Line 203 require utf-8.fs
Variable curpos	Variable curpos
Variable screenw	Variable screenw

	: at-deltaxy ( dx dy -- )
	#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit
	#esc emit '[ emit dup abs 0 .r 0< IF 'D ELSE 'C THEN emit ;

: cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;	: cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
: at-xy? ( -- x y )	: at-xy? ( -- x y )
key? drop \ make sure prep_terminal() is executed	key? drop \ make sure prep_terminal() is executed