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

takawiri: begin making ui elements adjust positioning based on LT:H, LT:W, TOB:H, and TOB:W

Browse source 
FossilOrigin-Name: 9ebeb09e1c1c36182945517727c65e266f559560c4c2e99a9d31d4408e80b5fb
This commit is contained in:
crc 2024-01-22 11:21:09 +00:00
parent e50b0d236a
commit 76ac1f0878
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
takawiri.retro
View file

@ -15,13 +15,13 @@ Setup the text output buffer dimensions.
~~~
#80 'TOB:W const
#23 'TOB:H const
#25 'TOB:H const
~~~
Setup the local terminal dimensions.
~~~
#100 'LT:W const
#105 'LT:W const
#30 'LT:H const
~~~
@ -86,8 +86,8 @@ Configure the UI colors.
~~~
~~~
:~left dss:sep #23 [ I n:inc #82 vt:row,col $| c:put ] indexed-times vt:reset ;
:~bottom dss:sep #24 #1 vt:row,col #81 [ $= c:put ] times $+ c:put vt:reset ;
:~left dss:sep TOB:H n:inc [ I n:inc #82 vt:row,col $| c:put ] indexed-times vt:reset ;
:~bottom dss:sep TOB:H n:inc #1 vt:row,col #81 [ $= c:put ] times $+ c:put vt:reset ;
'Items d:create #0 comma #32 allot
@ -143,8 +143,8 @@ is done.
:prompt (-)
dss:prompt
#25 #1 vt:row,col LT:W [ sp ] times
#25 #1 vt:row,col '>>_ s:put ;
LT:H #1 vt:row,col LT:W [ sp ] times
LT:H #1 vt:row,col '>>_ s:put ;
~~~