Project tree: File renaming takes "compress file in executable" flag into account.

[DEVELOPMENT ENVIRONMENT]
* BUG: Project tree: File renaming takes "compress file in executable" flag into account.
* NEW: Project tree: Add a "show untranslatable files" filter.

app/src/gambas3/.src/FMain.class

@@ -2291,6 +2291,8 @@ Public Sub DoFilter(sFilter As String)
       sText = mnuFilterModified.Text
     Case Project.FILTER_COMPRESSED
       sText = mnuFilterCompressed.Text
+    Case Project.FILTER_DO_NOT_TRANSLATE
+      sText = mnuFilterDoNotTranslate.Text
   End Select
   
   txtSearchProject.Font.Italic = True
@@ -3164,3 +3166,9 @@ Public Sub mnuHelpShortcuts_Click()
   FHelpShortcut.Load
 
 End
+
+Public Sub mnuFilterDoNotTranslate_Click()
+
+  DoFilter(Project.FILTER_DO_NOT_TRANSLATE)
+
+End

app/src/gambas3/.src/FMain.form

@@ -729,6 +729,10 @@
         Text = ("Show files in conflict")
         Picture = Picture["img/32/conflict.png"]
       }
+      { mnuFilterDoNotTranslate Menu
+        Text = ("Show untranslatable files")
+        Picture = Picture["img/32/do-not-translate.png"]
+      }
       { mnuFilterCompressed Menu
         Text = ("Show compressed files")
         Picture = Picture["icon:/small/archive"]
@@ -737,7 +741,7 @@
       }
       { mnuFilterAll Menu
         Text = ("Show all")
-        Picture = Picture["icon:/small/refresh"]
+        Picture = Picture["icon:/small/clear"]
       }
     }
     { mnuAddVersionAll Menu

app/src/gambas3/.src/Project.module

@@ -142,6 +142,7 @@ Public Const FILTER_EXPORTED As String = " X"
 Public Const FILTER_CONFLICT As String = " C"
 Public Const FILTER_MODIFIED As String = " M"
 Public Const FILTER_COMPRESSED As String = " P"
+Public Const FILTER_DO_NOT_TRANSLATE As String = " T"
 
 Public Files As New Collection
 Public ExternFiles As New Collection
@@ -1826,6 +1827,14 @@ Private Sub InitProjectFilter()
       AddPathToFilter(Project.Dir &/ sFile)
     Next
 
+  Else If ProjectFilter = FILTER_DO_NOT_TRANSLATE Then
+
+    $cProjectFilter = New Collection
+
+    For Each sFile In Project.DoNotTranslate
+      AddPathToFilter(Project.Dir &/ sFile)
+    Next
+
   Else
 
     sFilter = String.LCase(ProjectFilter)
@@ -6804,6 +6813,13 @@ Private Sub RenamePaths(sOld As String, sNew As String)
     If sPath Then DoNotTranslate[I] = sPath
   Next
   
+  ' Rename CompressedFiles
+  
+  For I = 0 To CompressedFiles.Max
+    sPath = ApplyRename(sOld, sNew, CompressedFiles[I])
+    If sPath Then CompressedFiles[I] = sPath
+  Next
+  
   ' Rename sources
   
   If IsSourcePath(sOld) Then