QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 04:10:22 +00:00
Code Releases Wiki Activity

Allow closing the Watch Panel while keeping the Watch List

Browse source
This commit is contained in:
FellippeHeitor 2021-10-02 02:28:37 -03:00
parent 6a7635aa25
commit 4face3fc55
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
source/ide/ide_methods.bas
View file

@ -6424,6 +6424,7 @@ SUB DebugMode
STATIC buffer$ STATIC buffer$
STATIC currentSub$ STATIC currentSub$
STATIC debuggeehwnd AS _OFFSET STATIC debuggeehwnd AS _OFFSET
STATIC panelActive AS _BYTE
DECLARE LIBRARY DECLARE LIBRARY
SUB set_foreground_window (BYVAL hwnd AS _OFFSET) SUB set_foreground_window (BYVAL hwnd AS _OFFSET)
@ -6481,6 +6482,7 @@ SUB DebugMode
debugClient& = 0 debugClient& = 0
debuggeepid = 0 debuggeepid = 0
panelActive = -1
showvWatchPanel vWatchPanel, "", 1 showvWatchPanel vWatchPanel, "", 1
IF LEN(variableWatchList$) = 0 THEN IF LEN(variableWatchList$) = 0 THEN
totalVisibleVariables = 0 totalVisibleVariables = 0
@ -6912,10 +6914,18 @@ SUB DebugMode
IF vWatchPanel.closingPanel AND (mX = mouseDownOnX AND mY = mouseDownOnY) THEN IF vWatchPanel.closingPanel AND (mX = mouseDownOnX AND mY = mouseDownOnY) THEN
vWatchPanel.closingPanel = 0 vWatchPanel.closingPanel = 0
mouseDown = 0 mouseDown = 0
variableWatchList$ = "" panelActive = 0
FOR i = 1 TO totalVariablesCreated result = idemessagebox("Close watch list", "Keep variables in list?", "#Yes, just hide the panel;#No, clear the list")
usedVariableList(i).watch = 0 IF result = 2 THEN
NEXT variableWatchList$ = ""
backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList
FOR i = 1 TO totalVariablesCreated
usedVariableList(i).watch = 0
NEXT
END IF
PCOPY 3, 0: SCREEN , , 3, 0
WHILE _MOUSEINPUT: WEND
GOSUB UpdateDisplay GOSUB UpdateDisplay
END IF END IF
IF vWatchPanel.draggingVBar THEN IF vWatchPanel.draggingVBar THEN
@ -7370,6 +7380,7 @@ SUB DebugMode
WHILE _MOUSEINPUT: WEND WHILE _MOUSEINPUT: WEND
GOSUB UpdateDisplay GOSUB UpdateDisplay
IF LEN(variableWatchList$) THEN IF LEN(variableWatchList$) THEN
panelActive = -1
GOTO requestVariableValues GOTO requestVariableValues
END IF END IF
END IF END IF
@ -7618,7 +7629,7 @@ SUB DebugMode
GOSUB UpdateDisplay GOSUB UpdateDisplay
'request variables addresses 'request variables addresses
IF LEN(variableWatchList$) THEN IF LEN(variableWatchList$) > 0 AND panelActive THEN
requestVariableValues: requestVariableValues:
temp$ = GetBytes$("", 0) 'reset buffer temp$ = GetBytes$("", 0) 'reset buffer
temp$ = MID$(variableWatchList$, 9) 'skip longest var name and total visible vars temp$ = MID$(variableWatchList$, 9) 'skip longest var name and total visible vars
@ -7822,7 +7833,7 @@ SUB DebugMode
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))
IF hidePanel = 0 THEN showvWatchPanel vWatchPanel, currentSub$, 0 IF hidePanel = 0 AND panelActive = -1 THEN showvWatchPanel vWatchPanel, currentSub$, 0
hidePanel = 0 hidePanel = 0
END IF END IF