QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Resets Watch Panel data before a new run.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-25 00:08:52 -03:00
parent 13a9d4e8be
commit 3bcad3c611
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/ide/ide_methods.bas
View file

@ -6407,6 +6407,7 @@ SUB DebugMode
debugClient& = 0
debuggeepid = 0
showvWatchPanel vWatchPanel, "", 0, 1
IF LEN(variableWatchList$) = 0 THEN
totalVisibleVariables = 0
vWatchPanel.h = 5
@ -7573,7 +7574,7 @@ SUB DebugMode
IF PauseMode <> 0 AND LEN(variableWatchList$) > 0 THEN
IF WatchListToConsole THEN _CONSOLE ON
showvWatchPanel vWatchPanel, currentSub$, totalVisibleVariables
showvWatchPanel vWatchPanel, currentSub$, totalVisibleVariables, 0
END IF
PCOPY 3, 0
@ -7633,10 +7634,12 @@ Function map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
End Function
SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariables)
SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, totalVisibleVariables, action as _BYTE)
STATIC previousVariableWatchList$
STATIC longestVarName
IF action = 1 THEN previousVariableWatchList$ = "": EXIT SUB 'reset
IF previousVariableWatchList$ <> variableWatchList$ THEN
'new setup
previousVariableWatchList$ = variableWatchList$