QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-02 03:50:36 +00:00
Code Issues Releases Wiki Activity

Remove SUBs sorting under OS X, until it gets fixed.

Browse source 
After the addition of sorting to SUBs dialog, it stopped working under OS X.
This commit is contained in:
FellippeHeitor 2016-01-14 15:30:55 -02:00
parent d684b6cf05
commit 55035849fd
1 changed files with 29 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -7279,7 +7279,7 @@ InsideDECLARE = 0
FoundExternalSUBFUNC = 0
l$ = ideprogname$
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
lSorted$ = l$
IF INSTR(_OS$, "MAC") = 0 THEN lSorted$ = l$
TotalSUBs = 0
FOR y = 1 TO iden
@ -7353,12 +7353,14 @@ FOR y = 1 TO iden
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
'Populate SortedSubsList()
IF INSTR(_OS$, "MAC") = 0 THEN
TotalSUBs = TotalSUBs + 1
ListItemLength = LEN(n$ + " " + sf$ + args$)
REDIM _PRESERVE SortedSubsList(1 to TotalSUBs) as string * 998
SortedSubsList(TotalSUBs) = n$ + " " + sf$ + args$
MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
END IF
END IF
NEXT
FOR x = LEN(l$) TO 1 STEP -1
@ -7366,6 +7368,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$, "MAC") = 0 THEN
if TotalSUBs > 1 then
DIM m as _MEM
m = _MEM(SortedSubsList())
@ -7384,6 +7387,9 @@ if TotalSUBs > 1 then
else
SortedSubsFlag = 0 'Override idesortsubs if the current program doesn't have more than 1 subprocedure
end if
ELSE
SortedSubsFlag = 0
END IF
'72,19
i = 0