From 3702858928fa5ff4fef363f286462114096e0592 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Tue, 22 Sep 2020 22:28:10 -0700
Subject: 6841

Initial sketch for a menu bar.
---
 apps/tile/environment.mu | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu
index d7a7a92c..b86c898a 100644
--- a/apps/tile/environment.mu
+++ b/apps/tile/environment.mu
@@ -316,4 +316,13 @@ fn clear-canvas _env: (addr environment) {
   repl-col <- add 2  # repl-margin-left
   move-cursor screen, 5, repl-col  # input-row + stack-margin-top
   print-string screen, "stack:"
+  move-cursor screen, *nrows, repl-col
+  start-reverse-video screen
+  print-string screen, " ctrl-r "
+  reset-formatting screen
+  print-string screen, " rename  "
+  start-reverse-video screen
+  print-string screen, " ctrl-s "
+  reset-formatting screen
+  print-string screen, " tbd  "
 }
-- 
cgit 1.4.1-2-gfad0