crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix a bug in tob

Browse source 
FossilOrigin-Name: 4e9212c21ced572b656a71da0db780009b5fa642d2beb282979412b9771924ff
This commit is contained in:
crc 2024-01-19 15:32:50 +00:00
parent 2960dfcc2c
commit 6e72aa6663
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
library/tob.retro
View file

@ -25,11 +25,6 @@ TODO:
- escape sequence support
- separate out attributes to separate buffers
~~~
#80 'TOB:W const
#23 'TOB:H const
~~~
You can create constants for the terminal width & height before
loading the TOB library. If you do not do so, this will create
them for an 80x25 display.
@ -52,7 +47,7 @@ them for an 80x25 display.
(erase) #32 &TOB TOB:W TOB:H n:dec n:mul n:add TOB:W fill
;
:advance-cursor @TX TOB:W gt? [ #0 !TX &TY v:inc ] if
:advance-cursor @TX TOB:W eq? [ #0 !TX &TY v:inc ] if
@TY TOB:H eq? [ &TY v:dec scroll ] if ;
:handle