add tab-switching instructions
This commit is contained in:
parent
2c4adeeb00
commit
326085ece2
6
main.fs
6
main.fs
|
@ -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 )
|
||||
|
|
Reference in New Issue