VE: decouple from core's LIST
I'm planning on de-hardcoding columns in VE a bit to add support for screens narrower than 67 columns. There's a lot of hardcoding. Let's begin with not using core's LIST anymore. This allows us to spit 1-16 numbers only at startup.
This commit is contained in:
parent
d1718a90c7
commit
10da104873
4
blk/126
4
blk/126
@ -11,6 +11,4 @@ CREATE PREVPOS 0 , CREATE PREVBLK 0 ,
|
||||
: status 0 aty ." BLK" SPC BLK> ? SPC ACC ?
|
||||
SPC EDPOS @ 64 /MOD . ',' EMIT . SPC
|
||||
BLKDTY @ IF '*' EMIT THEN 10 nspcs ;
|
||||
: contents 3 aty BLK> @ LIST 3 16 gutter ;
|
||||
: selblk BLK> @ PREVBLK ! BLK@ contents ;
|
||||
: mode! ( c -- ) 63 0 AT-XY ;
|
||||
: nums 17 1 DO 2 I + aty I . SPC SPC LOOP ;
|
||||
|
6
blk/127
6
blk/127
@ -1,3 +1,9 @@
|
||||
: contents 16 0 DO 3 I 3 + AT-XY
|
||||
64 I * BLK( + DUP 64 + SWAP DO
|
||||
I C@ 0x20 MAX EMIT LOOP LOOP
|
||||
3 16 gutter ;
|
||||
: selblk BLK> @ PREVBLK ! BLK@ contents ;
|
||||
: mode! ( c -- ) 63 0 AT-XY ;
|
||||
: pos! ( newpos -- ) EDPOS @ PREVPOS !
|
||||
DUP 0< IF DROP 0 THEN 1023 MIN EDPOS ! ;
|
||||
: setpos ( -- ) EDPOS @ 64 /MOD
|
||||
|
Loading…
Reference in New Issue
Block a user