mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Aligns block closings with their opening lines.
This commit is contained in:
parent
a6fe260a5e
commit
3395cd2d33
|
@ -3556,9 +3556,13 @@ FUNCTION ide2 (ignore)
|
||||||
retval$ = idergbmixer$(0)
|
retval$ = idergbmixer$(0)
|
||||||
ELSEIF IdeAutoComplete AND idefocusline > 0 AND LEN(_TRIM$(a$)) = 0 THEN
|
ELSEIF IdeAutoComplete AND idefocusline > 0 AND LEN(_TRIM$(a$)) = 0 THEN
|
||||||
'close open block
|
'close open block
|
||||||
|
tempIndent$ = idegetline(idefocusline)
|
||||||
|
tempIndent$ = SPACE$(LEN(tempIndent$) - LEN(LTRIM$(tempindent$)))
|
||||||
IF idefocusline = definingtypeerror THEN
|
IF idefocusline = definingtypeerror THEN
|
||||||
|
idecx = LEN(tempIndent$) + 1
|
||||||
insertAtCursor SCase$("End Type"): GOTO specialchar
|
insertAtCursor SCase$("End Type"): GOTO specialchar
|
||||||
ELSEIF idefocusline = controlref(controllevel) AND INSTR(idecompilererrormessage$, " without ") > 0 THEN
|
ELSEIF idefocusline = controlref(controllevel) AND INSTR(idecompilererrormessage$, " without ") > 0 THEN
|
||||||
|
idecx = LEN(tempIndent$) + 1
|
||||||
SELECT EVERYCASE controltype(controllevel)
|
SELECT EVERYCASE controltype(controllevel)
|
||||||
CASE 1: insertAtCursor SCase$("End If"): GOTO specialchar
|
CASE 1: insertAtCursor SCase$("End If"): GOTO specialchar
|
||||||
CASE 2: insertAtCursor SCase$("Next"): GOTO specialchar
|
CASE 2: insertAtCursor SCase$("Next"): GOTO specialchar
|
||||||
|
|
Loading…
Reference in a new issue