QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Prevents () in comments after SUBs from being displayed in Subs Dialog.

Browse source
This commit is contained in:
Fellippe Heitor 2021-05-23 12:20:34 -03:00
parent 7fa600acb9
commit fa7ad406f6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -8744,7 +8744,9 @@ FUNCTION idesubs$
END IF
a$ = LTRIM$(RTRIM$(a$))
x = INSTR(a$, "(")
IF x THEN
DIM comment AS _BYTE, quote AS _BYTE
IF x THEN FindQuoteComment a$, x, comment, quote
IF x > 0 AND comment = 0 AND quote = 0 THEN
n$ = RTRIM$(LEFT$(a$, x - 1))
args$ = RIGHT$(a$, LEN(a$) - x + 1)
x = 1
@ -8799,7 +8801,6 @@ FUNCTION idesubs$
IF sf = 0 THEN sf = INSTR(cursor + 1, nca$, "END FUNCTION")
IF sf THEN
DIM comment AS _BYTE, quote AS _BYTE
FindQuoteComment nca$, sf, comment, quote
IF comment OR quote THEN cursor = sf: GOTO LookForENDSUB
GOSUB AddLineCount