gui: do not show directories as wads and language files

[d2df-editor.git] / src / editor / f_addresource.pas

diff --git a/src/editor/f_addresource.pas b/src/editor/f_addresource.pas
index a0bebb99bd2912ada915778f7aef692159bd35d9..913f19f30d7331e3a2894c6c236f1aee3fcdb75c 100644 (file)
--- a/src/editor/f_addresource.pas
+++ b/src/editor/f_addresource.pas
@@ -65,7 +65,7 @@ begin
   FFullResourceName := '';
   FResourceSelected := False;
 
-  if FindFirst(WadsDir + DirectorySeparator + '*.*', faAnyFile, SR) = 0 then
+  if FindFirst(WadsDir + DirectorySeparator + '*.*', faReadOnly, SR) = 0 then
   repeat
     cbWADList.Items.Add(SR.Name);
   until FindNext(SR) <> 0;