QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 11:30:37 +00:00
Code Issues Releases Wiki Activity

Fix evaluation of current OS.

Browse source 
Tested under Windows, OS X El Capitan, Linux 32 and 64 bit.
This commit is contained in:
FellippeHeitor 2016-01-15 15:00:17 -02:00
parent 7ec9208718
commit d86b5c84b6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -7278,7 +7278,7 @@ InsideDECLARE = 0
FoundExternalSUBFUNC = 0
l$ = ideprogname$
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
IF INSTR(_OS$, "WIN") > 0 OR (INSTR(_OS$, "LINUX") > 0 AND INSTR(_OS$, "32BIT") > 0) THEN
lySorted$ = ly$
lSorted$ = l$
END IF
@ -7356,7 +7356,7 @@ FOR y = 1 TO iden
END IF
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
IF INSTR(_OS$, "WIN") > 0 OR (INSTR(_OS$, "LINUX") > 0 AND INSTR(_OS$, "32BIT") > 0) THEN
'Populate SortedSubsList()
TotalSUBs = TotalSUBs + 1
ListItemLength = LEN(n$ + " " + sf$ + args$)
@ -7372,7 +7372,7 @@ FOR x = LEN(l$) TO 1 STEP -1
IF a$ = chr$(195) THEN MID$(l$, x, 1) = chr$(192): EXIT FOR
NEXT
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
IF INSTR(_OS$, "WIN") > 0 OR (INSTR(_OS$, "LINUX") > 0 AND INSTR(_OS$, "32BIT") > 0) THEN
if TotalSUBs > 1 then
DIM m as _MEM
m = _MEM(SortedSubsList())
@ -7437,7 +7437,7 @@ o(i).y = idewy + idesubwindow - 6
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
o(i).dft = 1
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
IF INSTR(_OS$, "WIN") > 0 OR (INSTR(_OS$, "LINUX") > 0 AND INSTR(_OS$, "32BIT") > 0) THEN
If TotalSUBs > 1 then
i = i + 1
o(i).typ = 4 'check box