mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Sort file list in Open dialog (Linux). Addresses issue #31
This commit is contained in:
parent
90b3e7c14d
commit
363509210c
1 changed files with 3 additions and 3 deletions
|
@ -9995,11 +9995,11 @@ FUNCTION idezfilelist$ (path$, method) 'method0=*.bas, method1=*.*
|
||||||
FOR i = 1 TO 2 - method
|
FOR i = 1 TO 2 - method
|
||||||
OPEN "./internal/temp/files.txt" FOR OUTPUT AS #150: CLOSE #150
|
OPEN "./internal/temp/files.txt" FOR OUTPUT AS #150: CLOSE #150
|
||||||
IF method = 0 THEN
|
IF method = 0 THEN
|
||||||
IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.bas" + CHR$(34) + " >./internal/temp/files.txt"
|
IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.bas" + CHR$(34) + " | sort >./internal/temp/files.txt"
|
||||||
IF i = 2 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.BAS" + CHR$(34) + " >./internal/temp/files.txt"
|
IF i = 2 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.BAS" + CHR$(34) + " | sort >./internal/temp/files.txt"
|
||||||
END IF
|
END IF
|
||||||
IF method = 1 THEN
|
IF method = 1 THEN
|
||||||
IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*" + CHR$(34) + " >./internal/temp/files.txt"
|
IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*" + CHR$(34) + " | sort >./internal/temp/files.txt"
|
||||||
END IF
|
END IF
|
||||||
OPEN "./internal/temp/files.txt" FOR INPUT AS #150
|
OPEN "./internal/temp/files.txt" FOR INPUT AS #150
|
||||||
DO UNTIL EOF(150)
|
DO UNTIL EOF(150)
|
||||||
|
|
Loading…
Reference in a new issue