From fa7ad406f6c0eed06dc2ded2edbd2ad6b6c8e2a8 Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Sun, 23 May 2021 12:20:34 -0300
Subject: [PATCH] Prevents () in comments after SUBs from being displayed in
 Subs Dialog.

---
 source/ide/ide_methods.bas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 39eac005a..0b9341c9f 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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