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
|
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 )
|
||||||
|
|
Reference in New Issue