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

Makes F1 contextual help more flexible.

Browse source 
The detection of the keyword at the cursor will consider cases in which 
the cursor is just to the right of the last typed word.
This commit is contained in:
Fellippe Heitor 2021-01-26 22:53:30 -03:00
parent fe4c4996c9
commit e735ae1898
1 changed files with 158 additions and 157 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
source/ide/ide_methods.bas
View file

@ -2445,10 +2445,6 @@ FUNCTION ide2 (ignore)
contextualhelp:
IdeContextHelpSF = 0
'identify word or character at current cursor position
a$ = idegetline(idecy)
x = idecx
IF LEN(a$) > 0 AND x = LEN(a$) + 1 THEN x = x - 1
IF x <= LEN(a$) THEN
a2$ = UCASE$(getWordAtCursor$)
'check if F1 is in help links
fh = FREEFILE
@ -2479,6 +2475,7 @@ FUNCTION ide2 (ignore)
IF lnk$ = "C" THEN GOTO ideloop
END IF
IF INSTR(UCASE$(lnk$), "PARENTHESIS") THEN GOTO ideloop
OpenHelpLnk:
@ -2614,8 +2611,6 @@ FUNCTION ide2 (ignore)
END IF
NoKeywordFound:
END IF 'lnks
END IF
GOTO specialchar
END IF
@ -13147,7 +13142,7 @@ SUB IdeMakeContextualMenu
IF LEN(l2$) > 15 THEN
l2$ = LEFT$(l2$, 12) + STRING$(3, 250)
END IF
IF INSTR(l2$, "Parenthesis") = 0 THEN
IF INSTR(l2$, "PARENTHESIS") = 0 THEN
menu$(m, i) = "#Help On '" + l2$ + "'": i = i + 1
END IF
END IF
@ -14416,6 +14411,10 @@ FUNCTION getWordAtCursor$
a$ = idegetline(idecy)
x = idecx
IF x <= LEN(a$) THEN
IF ASC(a$, x) = 32 AND x > 1 THEN
IF ASC(a$, x - 1) <> 32 THEN x = x - 1
END IF
try:
IF alphanumeric(ASC(a$, x)) THEN
x1 = x
DO WHILE x1 > 1
@ -14430,6 +14429,8 @@ FUNCTION getWordAtCursor$
a2$ = CHR$(ASC(a$, x))
END IF
getWordAtCursor$ = a2$ 'a2$ now holds the word or character at current cursor position
ELSEIF x = LEN(a$) + 1 AND x > 1 THEN
IF ASC(a$, x - 1) <> 32 THEN x = x - 1: GOTO try
END IF
END FUNCTION