mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 11:11:20 +00:00
Reenable SUBs sorting under 32bit Linux.
This commit is contained in:
parent
0075adde2c
commit
2381e9aa20
|
@ -7278,7 +7278,7 @@ InsideDECLARE = 0
|
||||||
FoundExternalSUBFUNC = 0
|
FoundExternalSUBFUNC = 0
|
||||||
l$ = ideprogname$
|
l$ = ideprogname$
|
||||||
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
|
||||||
lySorted$ = ly$
|
lySorted$ = ly$
|
||||||
lSorted$ = l$
|
lSorted$ = l$
|
||||||
END IF
|
END IF
|
||||||
|
@ -7356,7 +7356,7 @@ FOR y = 1 TO iden
|
||||||
END IF
|
END IF
|
||||||
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
|
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
|
||||||
|
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
|
||||||
'Populate SortedSubsList()
|
'Populate SortedSubsList()
|
||||||
TotalSUBs = TotalSUBs + 1
|
TotalSUBs = TotalSUBs + 1
|
||||||
ListItemLength = LEN(n$ + " " + sf$ + args$)
|
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
|
IF a$ = chr$(195) THEN MID$(l$, x, 1) = chr$(192): EXIT FOR
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
|
||||||
if TotalSUBs > 1 then
|
if TotalSUBs > 1 then
|
||||||
DIM m as _MEM
|
DIM m as _MEM
|
||||||
m = _MEM(SortedSubsList())
|
m = _MEM(SortedSubsList())
|
||||||
|
@ -7437,7 +7437,7 @@ o(i).y = idewy + idesubwindow - 6
|
||||||
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
|
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
|
||||||
o(i).dft = 1
|
o(i).dft = 1
|
||||||
|
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") OR (INSTR(_OS$, "LINUX") AND INSTR(_OS$, "32BIT")) THEN
|
||||||
If TotalSUBs > 1 then
|
If TotalSUBs > 1 then
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 4 'check box
|
o(i).typ = 4 'check box
|
||||||
|
|
Loading…
Reference in a new issue