From 95098621a651818336634923fd20a7156b0d3043 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Mon, 6 Jan 2020 22:32:02 -0300 Subject: [PATCH] Adjusts help system to find non-prefixed keywords. --- source/ide/ide_methods.bas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 67e4afb6f..3236aa951 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -2399,12 +2399,12 @@ FUNCTION ide2 (ignore) a2$ = UCASE$(a2$) 'check if F1 is in help links fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh + OPEN "internal\help\links.bin" FOR BINARY AS #fh lnks = 0: lnks$ = CHR$(0) DO UNTIL EOF(fh) LINE INPUT #fh, l$ c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c) - IF a2$ = UCASE$(l1$) THEN + IF a2$ = UCASE$(l1$) OR (qb64prefix_set = 1 AND LEFT$(l1$, 1) = "_" AND a2$ = MID$(l1$, 2)) THEN IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN lnks = lnks + 1 IF l2$ = l1$ THEN @@ -4948,7 +4948,7 @@ FUNCTION ide2 (ignore) 'Add all linked pages to download list (if not already in list) fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh + OPEN "internal\help\links.bin" FOR BINARY AS #fh DO UNTIL EOF(fh) LINE INPUT #fh, l$ IF LEN(l$) THEN @@ -13906,12 +13906,12 @@ SUB IdeMakeContextualMenu IF LEN(a2$) > 0 THEN 'check if F1 is in help links fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh + OPEN "internal\help\links.bin" FOR BINARY AS #fh lnks = 0: lnks$ = CHR$(0) DO UNTIL EOF(fh) LINE INPUT #fh, l$ c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c) - IF a2$ = UCASE$(l1$) THEN + IF a2$ = UCASE$(l1$) OR (qb64prefix_set = 1 AND LEFT$(l1$, 1) = "_" AND a2$ = MID$(l1$, 2)) THEN IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN lnks = lnks + 1 EXIT DO