From 326085ece29e3f69c2e412e566987271b0e85189 Mon Sep 17 00:00:00 2001 From: nihilazo Date: Tue, 30 Mar 2021 14:35:35 +0100 Subject: [PATCH] add tab-switching instructions --- main.fs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/main.fs b/main.fs index a407952..8506501 100644 --- a/main.fs +++ b/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 )