mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Sets ActiveINCLUDELink only if the $included file is found.
This commit is contained in:
parent
09f51fbc1b
commit
1f3a106230
1 changed files with 1 additions and 2 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue