mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 21:25:14 +00:00
Centers current line while debugging.
It now centers the current line when using QuickNav too.
This commit is contained in:
parent
43c2dbc984
commit
403e45b2c4
|
@ -695,6 +695,15 @@ FUNCTION ide2 (ignore)
|
||||||
IdeDebugMode = 1
|
IdeDebugMode = 1
|
||||||
|
|
||||||
EnterDebugMode:
|
EnterDebugMode:
|
||||||
|
IF idehelp THEN
|
||||||
|
idewy = idewy + idesubwindow
|
||||||
|
idehelp = 0
|
||||||
|
idesubwindow = 0
|
||||||
|
skipdisplay = 0
|
||||||
|
IdeSystem = 1
|
||||||
|
retval = 1: GOSUB redrawItAll
|
||||||
|
END IF
|
||||||
|
|
||||||
idecompiling = 0
|
idecompiling = 0
|
||||||
ready = 1
|
ready = 1
|
||||||
_RESIZE OFF
|
_RESIZE OFF
|
||||||
|
@ -1331,8 +1340,8 @@ FUNCTION ide2 (ignore)
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
idecy = QuickNavHistory(QuickNavTotal).idecy
|
idecy = QuickNavHistory(QuickNavTotal).idecy
|
||||||
idecx = QuickNavHistory(QuickNavTotal).idecx
|
idecx = QuickNavHistory(QuickNavTotal).idecx
|
||||||
idesy = QuickNavHistory(QuickNavTotal).idesy
|
|
||||||
idesx = QuickNavHistory(QuickNavTotal).idesx
|
idesx = QuickNavHistory(QuickNavTotal).idesx
|
||||||
|
idecentercurrentline
|
||||||
QuickNavTotal = QuickNavTotal - 1
|
QuickNavTotal = QuickNavTotal - 1
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
@ -6312,6 +6321,7 @@ SUB DebugMode
|
||||||
l = CVL(value$)
|
l = CVL(value$)
|
||||||
idecy = l
|
idecy = l
|
||||||
idefocusline = 0
|
idefocusline = 0
|
||||||
|
idecentercurrentline
|
||||||
ideshowtext
|
ideshowtext
|
||||||
clearStatusWindow 1
|
clearStatusWindow 1
|
||||||
IF cmd$ = "breakpoint" THEN
|
IF cmd$ = "breakpoint" THEN
|
||||||
|
@ -7744,6 +7754,11 @@ FUNCTION idegetline$ (i)
|
||||||
idegetline$ = MID$(idet$, ideli + 4, CVL(MID$(idet$, ideli, 4)))
|
idegetline$ = MID$(idet$, ideli + 4, CVL(MID$(idet$, ideli, 4)))
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
SUB idecentercurrentline
|
||||||
|
idesy = idecy - (idewy - 8) \ 2
|
||||||
|
IF idesy < 1 THEN idesy = 1
|
||||||
|
END SUB
|
||||||
|
|
||||||
SUB idegotoline (i)
|
SUB idegotoline (i)
|
||||||
IF idel = i THEN EXIT SUB
|
IF idel = i THEN EXIT SUB
|
||||||
IF i < 1 THEN ERROR 5
|
IF i < 1 THEN ERROR 5
|
||||||
|
|
Loading…
Reference in a new issue