Keep the authorizations when saving a file.

[DEVELOPMENT ENVIRONMENT]
* NEW: Project tree: Add a "refresh project" entry in the filter menu.
* BUG: Keep the authorizations when saving a file.

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

@@ -771,6 +771,11 @@
         Text = ("Show all")
         Picture = Picture["icon:/small/clear"]
       }
+      { mnuRefreshProject Menu
+        Action = "refresh-project"
+        Text = ("Refresh project")
+        Picture = Picture["icon:/small/refresh"]
+      }
       { Menu55 Menu
       }
       { mnuUseInheritance Menu

app/src/gambas3/.src/Save.module

@@ -4,6 +4,7 @@ Public NewFile As Boolean
 
 Private $sPath As String
 Private $bRename As Boolean
+Private $sAuth As String
 
 Public Sub Begin(sPath As String, Optional bKeep As Boolean)
   
@@ -11,6 +12,7 @@ Public Sub Begin(sPath As String, Optional bKeep As Boolean)
   $sPath = sPath
   
   NewFile = Not Exist(sPath)
+  Try $sAuth = Stat(sPath).Auth
   
   Try Kill sPath & "~"
   If Not NewFile Then
@@ -28,6 +30,8 @@ End
 Public Sub End()
   
   Dim sForm As String
+
+  If $sAuth Then Chmod $sPath To $sAuth
   
   VersionControl.UpdatePath($sPath)
   Try Project.Tree.RefreshKey($sPath)