mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Keep version info visible in $Debug mode
This commit is contained in:
parent
df4dbb2b33
commit
6a7635aa25
|
@ -7040,7 +7040,8 @@ SUB DebugMode
|
||||||
UpdateStatusArea:
|
UpdateStatusArea:
|
||||||
IF _WINDOWHASFOCUS THEN
|
IF _WINDOWHASFOCUS THEN
|
||||||
IF noFocusMessage 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
|
GOSUB UpdateButtons
|
||||||
noFocusMessage = 0
|
noFocusMessage = 0
|
||||||
END IF
|
END IF
|
||||||
|
@ -7816,6 +7817,8 @@ SUB DebugMode
|
||||||
ideshowtext
|
ideshowtext
|
||||||
UpdateTitleOfMainWindow
|
UpdateTitleOfMainWindow
|
||||||
|
|
||||||
|
GOSUB printVersion
|
||||||
|
|
||||||
IF PauseMode <> 0 AND LEN(variableWatchList$) > 0 THEN
|
IF PauseMode <> 0 AND LEN(variableWatchList$) > 0 THEN
|
||||||
IF WatchListToConsole THEN _CONSOLE ON
|
IF WatchListToConsole THEN _CONSOLE ON
|
||||||
totalVisibleVariables = CVL(MID$(variableWatchList$, 5, 4))
|
totalVisibleVariables = CVL(MID$(variableWatchList$, 5, 4))
|
||||||
|
@ -7879,6 +7882,17 @@ SUB DebugMode
|
||||||
IF LEN(varType$) THEN GOTO checkVarType
|
IF LEN(varType$) THEN GOTO checkVarType
|
||||||
END SELECT
|
END SELECT
|
||||||
RETURN
|
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
|
END SUB
|
||||||
|
|
||||||
Function map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
|
Function map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
|
||||||
|
|
Loading…
Reference in a new issue