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 |