Implement sorting for stream

Activated by default for testing purposes

1 files changed, 2 insertions, 2 deletions

diff --git a/UCoreWorkers.pas b/UCoreWorkers.pas
index 218602d..218c43a 100644
--- a/UCoreWorkers.pas
+++ b/UCoreWorkers.pas
@@ -545,7 +545,7 @@ begin
   if (AList.Count = 0) and Assigned(SelectedItem) and (not SelectedItem^.UpDir) then
       InputFiles.Add(CurrPath + String(SelectedItem^.FName));
 
-  FillDirFiles(Engine, AList, InputFiles, DoNotRecurse);
+  FillDirFiles(Engine, AList, InputFiles, DoNotRecurse, True);
   InputFiles.Free;
 end;
 
@@ -1309,7 +1309,7 @@ var DefResponse: integer;   //  Global variables for this function
                  end;
                end else InputFiles.Add(FullPath);
       end;
-      FillDirFiles(SrcEngine, AList, InputFiles, False);
+      FillDirFiles(SrcEngine, AList, InputFiles, False, True);
     end;
     InputFiles.Free;
   end;