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")
|
FindInclude = INSTR(a2$, "$INCLUDE")
|
||||||
IF FindInclude > 0 THEN
|
IF FindInclude > 0 THEN
|
||||||
link_idecx = LEN(a$)
|
link_idecx = LEN(a$)
|
||||||
ActiveINCLUDELink = idecy
|
|
||||||
FindApostrophe1 = INSTR(FindInclude + 8, a2$, "'")
|
FindApostrophe1 = INSTR(FindInclude + 8, a2$, "'")
|
||||||
FindApostrophe2 = INSTR(FindApostrophe1 + 1, a2$, "'")
|
FindApostrophe2 = INSTR(FindApostrophe1 + 1, a2$, "'")
|
||||||
ActiveINCLUDELinkFile = MID$(a$, FindApostrophe1 + 1, FindApostrophe2 - FindApostrophe1 - 1)
|
ActiveINCLUDELinkFile = MID$(a$, FindApostrophe1 + 1, FindApostrophe2 - FindApostrophe1 - 1)
|
||||||
p$ = idepath$ + pathsep$
|
p$ = idepath$ + pathsep$
|
||||||
f$ = p$ + ActiveINCLUDELinkFile
|
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
|
||||||
END IF 'l = idecy
|
END IF 'l = idecy
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue