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

Fix to extra console window being shown when no COMMAND$ is provided.

Browse source 
A trailing empty space was the culprit.
This commit is contained in:
FellippeHeitor 2016-04-15 10:01:58 -03:00
parent c2f01da917
commit f00c584454
3 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/global/version.bas
View file

@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
Version$ = "1.000"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20160415/9"
BuildNum$ = "20160415/10"

4
source/ide/ide_methods.bas
View file

@ -9151,6 +9151,7 @@ i = 0
idepar p, 65, 5, "Modify COMMAND$"
a2$ = ModifyCOMMAND$
if len(a2$) > 0 then a2$ = MID$(a2$, 2)
i = i + 1
o(i).typ = 1
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$(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
END IF

8
source/qb64.bas
View file

@ -1104,11 +1104,11 @@ IF C = 9 THEN 'run
'execute program
IF iderunmode = 1 THEN
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$ = "WIN" THEN SHELL _DONTWAIT QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
IF os$ = "LNX" THEN SHELL _DONTWAIT QuotedFilename$("./" + file$ + extension$) + ModifyCOMMAND$
ELSE
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + " " + ModifyCOMMAND$
IF os$ = "LNX" THEN SHELL QuotedFilename$("./" + file$ + extension$) + " " + ModifyCOMMAND$
IF os$ = "WIN" THEN SHELL QuotedFilename$(CHR$(34) + file$ + extension$ + CHR$(34)) + ModifyCOMMAND$
IF os$ = "LNX" THEN SHELL QuotedFilename$("./" + file$ + extension$) + ModifyCOMMAND$
END IF
sendc$ = CHR$(6) 'ready