mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 09:30:15 +00:00
Fix F1 key context help
- fully implements local link targets
This commit is contained in:
parent
fbc6c128e7
commit
7ad57f5c30
1 changed files with 10 additions and 1 deletions
|
@ -2747,6 +2747,11 @@ FUNCTION ide2 (ignore)
|
||||||
IF INSTR(UCASE$(lnk$), "PARENTHESIS") THEN GOTO ideloop
|
IF INSTR(UCASE$(lnk$), "PARENTHESIS") THEN GOTO ideloop
|
||||||
|
|
||||||
OpenHelpLink:
|
OpenHelpLink:
|
||||||
|
l2 = INSTR(lnk$, "#") 'local link?
|
||||||
|
IF l2 > 0 THEN
|
||||||
|
Help_Search_Str = StrReplace$(MID$(lnk$, l2 + 1), "_", " ")
|
||||||
|
lnk$ = LEFT$(lnk$, l2 - 1): Help_LinkL = -1
|
||||||
|
END IF
|
||||||
|
|
||||||
|
|
||||||
Help_Back(Help_Back_Pos).sx = Help_sx 'update position
|
Help_Back(Help_Back_Pos).sx = Help_sx 'update position
|
||||||
|
@ -2805,7 +2810,11 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
GOSUB redrawitall
|
GOSUB redrawitall
|
||||||
|
IF Help_LinkL THEN
|
||||||
|
norep = 1: GOTO searchnext
|
||||||
|
ELSE
|
||||||
GOTO specialchar
|
GOTO specialchar
|
||||||
|
END IF
|
||||||
|
|
||||||
ELSE
|
ELSE
|
||||||
'No help found; Does the user want help for a SUB or FUNCTION?
|
'No help found; Does the user want help for a SUB or FUNCTION?
|
||||||
|
|
Loading…
Reference in a new issue