version 1.51, 2007/05/05 17:26:02
|
version 1.52, 2007/05/05 17:27:40
|
Line 218 Variable curpos
|
Line 218 Variable curpos
|
: .rest ( addr pos1 -- addr pos1 ) |
: .rest ( addr pos1 -- addr pos1 ) |
restore-cursor 2dup type 2dup cur-correct ; |
restore-cursor 2dup type 2dup cur-correct ; |
: .all ( span addr pos1 -- span addr pos1 ) |
: .all ( span addr pos1 -- span addr pos1 ) |
|
key? IF rdrop EXIT THEN |
restore-cursor >r 2dup swap type 2dup swap cur-correct r> ; |
restore-cursor >r 2dup swap type 2dup swap cur-correct r> ; |
: xback-restore ( u -- ) |
: xback-restore ( u -- ) |
drop restore-cursor ; |
drop restore-cursor ; |
Line 232 Variable curpos
|
Line 233 Variable curpos
|
2dup chars + r@ swap r@ xc-size xc!+? 2drop drop |
2dup chars + r@ swap r@ xc-size xc!+? 2drop drop |
r> xc-size >r rot r@ chars + -rot r> chars + ; |
r> xc-size >r rot r@ chars + -rot r> chars + ; |
: (xins) ( max span addr pos1 xc -- max span addr pos2 ) |
: (xins) ( max span addr pos1 xc -- max span addr pos2 ) |
<xins> key? ?EXIT .all .rest ; |
<xins> .all .rest ; |
: xback ( max span addr pos1 -- max span addr pos2 f ) |
: xback ( max span addr pos1 -- max span addr pos2 f ) |
dup IF over + xchar- over - 0 max .all .rest |
dup IF over + xchar- over - 0 max .all .rest |
ELSE bell THEN 0 ; |
ELSE bell THEN 0 ; |