mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Allows setting breakpoints while running using the mouse
This commit is contained in:
parent
4ec2243007
commit
5f3075ec3e
1 changed files with 33 additions and 0 deletions
|
@ -6123,6 +6123,39 @@ SUB DebugMode
|
||||||
noFocusMessage = -1
|
noFocusMessage = -1
|
||||||
|
|
||||||
DO 'main loop
|
DO 'main loop
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
|
mB = _MOUSEBUTTON(1)
|
||||||
|
mB2 = _MOUSEBUTTON(2)
|
||||||
|
mX = _MOUSEX
|
||||||
|
mY = _MOUSEY
|
||||||
|
|
||||||
|
IF mB THEN
|
||||||
|
IF mouseDown = 0 THEN
|
||||||
|
mouseDown = -1
|
||||||
|
mouseDownOnX = mX
|
||||||
|
mouseDownOnY = mY
|
||||||
|
ELSE
|
||||||
|
'drag
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
IF mouseDown THEN
|
||||||
|
IF mouseDownOnX = mX AND mouseDownOnY = mY THEN
|
||||||
|
ideselect = 0
|
||||||
|
idecytemp = mY - 2 + idesy - 1
|
||||||
|
IF idecytemp =< iden THEN
|
||||||
|
IdeBreakpoints(idecytemp) = NOT IdeBreakpoints(idecytemp)
|
||||||
|
IF IdeBreakpoints(idecytemp) THEN cmd$ = "set breakpoint:" ELSE cmd$ = "clear breakpoint:"
|
||||||
|
cmd$ = cmd$ + MKL$(idecytemp)
|
||||||
|
GOSUB SendCommand
|
||||||
|
ideshowtext
|
||||||
|
PCOPY 3, 0
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
mouseDown = 0
|
||||||
|
END IF
|
||||||
|
|
||||||
|
|
||||||
IF _WINDOWHASFOCUS THEN
|
IF _WINDOWHASFOCUS THEN
|
||||||
IF noFocusMessage THEN
|
IF noFocusMessage THEN
|
||||||
clearStatusWindow 1
|
clearStatusWindow 1
|
||||||
|
|
Loading…
Reference in a new issue