From 6d2f253a5dd236002c0c44bbead785d447152ab7 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 6 Aug 2012 01:53:35 -0400
Subject: [PATCH] Some visual updates

---
 mystic/bbs_cfg_menuedit.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mystic/bbs_cfg_menuedit.pas b/mystic/bbs_cfg_menuedit.pas
index fcbbc26..1e27afc 100644
--- a/mystic/bbs_cfg_menuedit.pas
+++ b/mystic/bbs_cfg_menuedit.pas
@@ -501,7 +501,7 @@ Begin
 
   Box.Open (9, 5, 72, 21);
 
-  WriteXY (11,  6, 112, 'Hot Key        Text                                     Exec');
+  WriteXY (11,  6, 112, 'HotKey     Text                                        C# Ex');
   WriteXY (11,  7, 112, strRep('Ä', 60));
   WriteXY (11, 19, 112, strRep('Ä', 60));
   WriteXY (29, 20, 112, cfgCommandList);
@@ -517,8 +517,9 @@ Begin
       If (Str = '') And (Menu.Item[Count]^.TextLo <> '') Then
         Str := strStripMCI(Menu.Item[Count]^.TextLo);
 
-      List.Add (strPadR(Menu.Item[Count]^.HotKey, 15, ' ') +
-                strPadR(Str, 43, ' ') +
+      List.Add (strPadR(Menu.Item[Count]^.HotKey, 10, ' ') + ' ' +
+                strPadR(Str, 43, ' ') + ' ' +
+                strPadL(strI2S(Count), 2, ' ') + ' ' +
                 strPadL(strI2S(Menu.Item[Count]^.Commands), 2, ' '), 0);
     End;