mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 13:50:36 +00:00
Fix to extra console window being shown when no COMMAND$ is provided.
A trailing empty space was the culprit.
This commit is contained in:
parent
c2f01da917
commit
f00c584454
|
@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
|
||||||
Version$ = "1.000"
|
Version$ = "1.000"
|
||||||
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
||||||
'integer. If you make a change, update the date and increase the id!
|
'integer. If you make a change, update the date and increase the id!
|
||||||
BuildNum$ = "20160415/9"
|
BuildNum$ = "20160415/10"
|
||||||
|
|
||||||
|
|
|
@ -9151,6 +9151,7 @@ i = 0
|
||||||
idepar p, 65, 5, "Modify COMMAND$"
|
idepar p, 65, 5, "Modify COMMAND$"
|
||||||
|
|
||||||
a2$ = ModifyCOMMAND$
|
a2$ = ModifyCOMMAND$
|
||||||
|
if len(a2$) > 0 then a2$ = MID$(a2$, 2)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 1
|
o(i).typ = 1
|
||||||
o(i).y = 2
|
o(i).y = 2
|
||||||
|
@ -9246,7 +9247,8 @@ DO 'main loop
|
||||||
IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN EXIT FUNCTION
|
IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN EXIT FUNCTION
|
||||||
|
|
||||||
IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN
|
IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN
|
||||||
ModifyCOMMAND$ = idetxt(o(1).txt)
|
ModifyCOMMAND$ = " " + idetxt(o(1).txt)
|
||||||
|
IF LTRIM$(RTRIM$(ModifyCOMMAND$)) = "" THEN ModifyCOMMAND$ = ""
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
|
@ -1104,11 +1104,11 @@ IF C = 9 THEN 'run
|
||||||
'execute program
|
'execute program
|
||||||
|
|
||||||
IF iderunmode = 1 THEN
|
IF iderunmode = 1 THEN
|
||||||
IF os$ = "WIN" THEN SHELL _DONTWAIT QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + " " + ModifyCOMMAND$
|
IF os$ = "WIN" THEN SHELL _DONTWAIT QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
|
||||||
IF os$ = "LNX" THEN SHELL _DONTWAIT QuotedFilename$("./" + file$ + extension$) + " " + ModifyCOMMAND$
|
IF os$ = "LNX" THEN SHELL _DONTWAIT QuotedFilename$("./" + file$ + extension$) + ModifyCOMMAND$
|
||||||
ELSE
|
ELSE
|
||||||
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + " " + ModifyCOMMAND$
|
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
|
||||||
IF os$ = "LNX" THEN SHELL QuotedFilename$("./" + file$ + extension$) + " " + ModifyCOMMAND$
|
IF os$ = "LNX" THEN SHELL QuotedFilename$("./" + file$ + extension$) + ModifyCOMMAND$
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
sendc$ = CHR$(6) 'ready
|
sendc$ = CHR$(6) 'ready
|
||||||
|
|
Loading…
Reference in a new issue