add tab-switching instructions

This commit is contained in:
Nico 2021-03-30 14:35:35 +01:00
parent 2c4adeeb00
commit 326085ece2
1 changed files with 5 additions and 1 deletions

View File

@ -215,6 +215,10 @@ S" you feel like throwing some stuff into the pool." set-message
1 of ." Garden " endof
endcase ;
\ draw-tab-keys draws the keyboard bindings for switching screens.
: draw-tab-keys
." (use < and > to switch tabs) " ;
\ draw-tab-bar draws the tab bar. TODO make this into smaller words
: draw-tab-bar ( x y -- )
2dup at-xy
@ -227,7 +231,7 @@ S" you feel like throwing some stuff into the pool." set-message
then
draw-screen-name
loop inc-y
then ;
then draw-tab-keys ;
\ draw-message draws the stored message on the screen.
: draw-message ( x y -- x y )