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

Shows binary name alongside output path in the status area.

Browse source
This commit is contained in:
FellippeHeitor 2019-12-29 23:46:19 -03:00
parent acb6209206
commit ee41a659f5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/ide/ide_methods.bas
View file

@ -674,12 +674,12 @@ FUNCTION ide2 (ignore)
LOCATE idewy - 2, 2 LOCATE idewy - 2, 2
PRINT "Location: "; PRINT "Location: ";
COLOR 11, 1 COLOR 11, 1
IF path.exe$ = "" THEN path.exe$ = getfilepath$(COMMAND$(0)) location$ = lastBinaryGenerated$
IF RIGHT$(path.exe$, 1) <> pathsep$ THEN path.exe$ = path.exe$ + pathsep$ IF path.exe$ = "" THEN location$ = _STARTDIR$ + pathsep$ + location$
IF POS(0) + LEN(path.exe$) > idewx THEN IF POS(0) + LEN(location$) > idewx THEN
PRINT "..."; RIGHT$(path.exe$, idewx - 15); PRINT "..."; RIGHT$(location$, idewx - 15);
ELSE ELSE
PRINT path.exe$; PRINT location$;
END IF END IF
statusarealink = 3 statusarealink = 3
END IF END IF
@ -1418,7 +1418,7 @@ FUNCTION ide2 (ignore)
CASE 3 CASE 3
'3- Link to the output folder when "Output EXE to source #folder" is checked: '3- Link to the output folder when "Output EXE to source #folder" is checked:
IF INSTR(_OS$, "WIN") THEN IF INSTR(_OS$, "WIN") THEN
SHELL _DONTWAIT "explorer /select," + QuotedFilename$(path.exe$ + file$ + extension$) SHELL _DONTWAIT "explorer /select," + QuotedFilename$(lastBinaryGenerated$)
ELSEIF INSTR(_OS$, "MAC") THEN ELSEIF INSTR(_OS$, "MAC") THEN
SHELL _DONTWAIT "open " + QuotedFilename$(path.exe$) SHELL _DONTWAIT "open " + QuotedFilename$(path.exe$)
ELSE ELSE