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

some small ui work; more work on watchlist display

Browse source 
FossilOrigin-Name: 291abcee98f546745e7cebf1cdb629adebacdceef9a5d8d371dcea2000380bd8
This commit is contained in:
crc 2024-01-20 19:06:04 +00:00
parent 0012072c84
commit e50b0d236a
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
takawiri.retro
View file

@ -61,17 +61,17 @@ do something like:
'________ '________
'________ '________
'________ '________
'________ } 'WatchlistLabels d:create #5 , &, a:for-each
'________
'________
} 'WatchlistLabels d:create #8 , &, a:for-each
'Watchlist d:create #8 , #8 allot 'Watchlist d:create #5 , #5 allot
'Watchlist d:create #8 , #8 allot
:watch (sa-) drop-pair ; :watch (sa-) drop-pair ;
:unwatch (a-) drop ; :unwatch (a-) drop ;
:watchlist:display (-) ; :watchlist (-)
#18 #84 vt:row,col #20 [ $- c:put ] times
#19 #5 [ dup #84 vt:row,col
&Watchlist over #19 n:sub a:fetch
fetch n:put n:inc ] times drop ;
~~~ ~~~
# ui # ui
@ -92,6 +92,7 @@ Configure the UI colors.
'Items d:create #0 comma #32 allot 'Items d:create #0 comma #32 allot
:dss :dss
#6 #84 vt:row,col #20 [ $- c:put ] times
[ depth #5 n:min !Items [ depth #5 n:min !Items
&Items fetch-next [ store-next ] times drop &Items fetch-next [ store-next ] times drop
&Items a:reverse [ ] a:for-each &Items a:reverse [ ] a:for-each
@ -118,6 +119,9 @@ is done.
~~~ ~~~
:ss (-) :ss (-)
#12 #84 vt:row,col #20 [ $- c:put ] times ;
:ss/later (-)
#0 &Items [ dup STRINGS gt? [ over n:inc #12 n:add #84 vt:row,col s:put ] &drop choose n:inc ] a:for-each drop #0 &Items [ dup STRINGS gt? [ over n:inc #12 n:add #84 vt:row,col s:put ] &drop choose n:inc ] a:for-each drop
; ;
~~~ ~~~
@ -166,7 +170,7 @@ that, so it's time to write a replacement.
&err:notfound unhook &err:notfound unhook
&banner tob:with &banner tob:with
[ vt:clear vt:home tob:display [ vt:clear vt:home tob:display
~left stats dss (ss ~left stats dss ss watchlist
~bottom ~bottom
prompt s:get vt:reset prompt s:get vt:reset
[ dup s:put nl s:evaluate ] tob:with [ dup s:put nl s:evaluate ] tob:with