1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00

Fixes doubleClickThreshold in Watch List dialog.

This commit is contained in:
FellippeHeitor 2021-09-11 20:05:04 -03:00
parent 883cfcb525
commit 9a963b70f8

View file

@ -7941,7 +7941,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
COLOR 0, 7 COLOR 0, 7
LOCATE p.y + 4, p.x + 2 LOCATE p.y + 4, p.x + 2
PRINT "Double-click on an item to add it to the watch list:" PRINT "Double-click on an item to add it to the watch list:"
IF doubleClickThreshold < p.w AND IdeDebugMode > 0 THEN IF doubleClickThreshold > 0 AND doubleClickThreshold < p.w AND IdeDebugMode > 0 THEN
_PRINTSTRING (p.x + doubleClickThreshold, p.y + 5), CHR$(194) _PRINTSTRING (p.x + doubleClickThreshold, p.y + 5), CHR$(194)
_PRINTSTRING (p.x + doubleClickThreshold, p.y + p.h - 1), CHR$(193) _PRINTSTRING (p.x + doubleClickThreshold, p.y + p.h - 1), CHR$(193)
END IF END IF
@ -8361,10 +8361,10 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
IF mCLICK AND focus = 2 THEN 'list click IF mCLICK AND focus = 2 THEN 'list click
IF timeElapsedSince(lastClick!) < .3 AND clickedItem = o(varListBox).sel THEN IF timeElapsedSince(lastClick!) < .3 AND clickedItem = o(varListBox).sel THEN
IF mX < p.x + doubleClickThreshold OR IdeDebugMode = 0 THEN IF doubleClickThreshold > 0 AND mX >= p.x + doubleClickThreshold AND IdeDebugMode > 0 THEN
GOTO toggleWatch
ELSE
GOTO sendValue GOTO sendValue
ELSE
GOTO toggleWatch
END IF END IF
END IF END IF
lastClick! = TIMER lastClick! = TIMER