From 6a7635aa25c82bddd4df43fc691159a228b33b58 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sat, 2 Oct 2021 00:15:37 -0300
Subject: [PATCH] Keep version info visible in $Debug mode

---
 source/ide/ide_methods.bas | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 301bfe9be..495fdf564 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -7040,7 +7040,8 @@ SUB DebugMode
         UpdateStatusArea:
         IF _WINDOWHASFOCUS THEN
             IF noFocusMessage THEN
-                UpdateMenuHelpLine "Right-click the code for more options; hit ESC to abort."
+                UpdateMenuHelpLine "Right-click for options; ESC to abort."
+                GOSUB printVersion
                 GOSUB UpdateButtons
                 noFocusMessage = 0
             END IF
@@ -7816,6 +7817,8 @@ SUB DebugMode
     ideshowtext
     UpdateTitleOfMainWindow
 
+    GOSUB printVersion
+
     IF PauseMode <> 0 AND LEN(variableWatchList$) > 0 THEN
         IF WatchListToConsole THEN _CONSOLE ON
         totalVisibleVariables = CVL(MID$(variableWatchList$, 5, 4))
@@ -7879,6 +7882,17 @@ SUB DebugMode
             IF LEN(varType$) THEN GOTO checkVarType
     END SELECT
     RETURN
+
+    printVersion:
+    'print version in the status bar
+    IF LEN(versionStringStatus$) = 0 THEN
+        versionStringStatus$ = " v" + Version$
+        IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " "))
+        versionStringStatus$ = versionStringStatus$ + " "
+    END IF
+    COLOR 2, 3
+    _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$
+    RETURN
 END SUB
 
 Function map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)