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 1 of ." Garden " endof
endcase ; 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 draws the tab bar. TODO make this into smaller words
: draw-tab-bar ( x y -- ) : draw-tab-bar ( x y -- )
2dup at-xy 2dup at-xy
@ -227,7 +231,7 @@ S" you feel like throwing some stuff into the pool." set-message
then then
draw-screen-name draw-screen-name
loop inc-y loop inc-y
then ; then draw-tab-keys ;
\ draw-message draws the stored message on the screen. \ draw-message draws the stored message on the screen.
: draw-message ( x y -- x y ) : draw-message ( x y -- x y )