QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 04:11:21 +00:00
Code Releases Wiki Activity

Sets ActiveINCLUDELink only if the $included file is found.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-10 02:28:24 -03:00
parent 09f51fbc1b
commit 1f3a106230
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
source/ide/ide_methods.bas
View file

@ -8670,13 +8670,12 @@ SUB ideshowtext
FindInclude = INSTR(a2$, "$INCLUDE")
IF FindInclude > 0 THEN
link_idecx = LEN(a$)
ActiveINCLUDELink = idecy
FindApostrophe1 = INSTR(FindInclude + 8, a2$, "'")
FindApostrophe2 = INSTR(FindApostrophe1 + 1, a2$, "'")
ActiveINCLUDELinkFile = MID$(a$, FindApostrophe1 + 1, FindApostrophe2 - FindApostrophe1 - 1)
p$ = idepath$ + pathsep$
f$ = p$ + ActiveINCLUDELinkFile
IF _FILEEXISTS(f$) THEN a$ = a$ + " --> Double-click to open"
IF _FILEEXISTS(f$) THEN a$ = a$ + " --> Double-click to open": ActiveINCLUDELink = idecy
END IF
END IF 'l = idecy