Diff for /gforth/history.fs between versions 1.58 and 1.59

version 1.58, 2007/06/30 23:00:14 version 1.59, 2007/07/01 11:32:44
Line 205  Variable screenw Line 205  Variable screenw
   
 : 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  
     #esc emit ." [6n"  0 0      #esc emit ." [6n"  0 0
     BEGIN  key dup 'R <>  WHILE      BEGIN  key dup 'R <>  WHILE
             dup '; = IF  drop  swap  ELSE              dup '; = IF  drop  swap  ELSE
Line 239  Variable screenw Line 238  Variable screenw
   
 : xretype ( max span addr pos1 -- max span addr pos1 )  : xretype ( max span addr pos1 -- max span addr pos1 )
     restore-cursor screenw @ >r save-cursor      restore-cursor screenw @ >r save-cursor
     .all 2 pick r@ / 1+ screenw @ r> - * 0 max spaces .rest false ;      .all 2 pick r@ / screenw @ r> - * 0 max spaces .rest false ;
   
 \ In the following, addr max is the buffer, addr span is the current  \ In the following, addr max is the buffer, addr span is the current
 \ string in the buffer, and pos1 is the cursor position in the buffer.  \ string in the buffer, and pos1 is the cursor position in the buffer.

Removed from v.1.58  
changed lines
  Added in v.1.59


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>