Merge branch gambas:master into master

app/src/gambas3/.src/Project/CProjectTree.class

@@ -327,6 +327,7 @@ Private Procedure AddDir(Optional sDir As String)
   Dim aDir As New String[]
   Dim sFile As String
   Dim aFile As New String[]
+  Dim aSelection As String[]
 
   If sDir Then 
     aDir.Add(sDir)
@@ -335,6 +336,7 @@ Private Procedure AddDir(Optional sDir As String)
     If $sDir <> $sSourceDir Then aDir.Add($sSourceDir)
   Endif
 
+  aSelection = $hTree.Selection
   $hTree._Begin()
 
   Repeat
@@ -373,6 +375,7 @@ Private Procedure AddDir(Optional sDir As String)
   Until aDir.Count = 0
 
   $hTree._End()
+  $hTree.Selection = aSelection
 
 End
 

app/src/gambas3/.src/Project/FOpenProject.class

@@ -282,7 +282,7 @@ Private Sub InitNewProject()
 
 End
 
-Public Sub ProjectTemplate_Click(sPath As String, bAnother As Boolean)
+Public Sub ProjectTemplate_Click((sPath) As String, (bAnother) As Boolean)
   
   txtProjectName.SetFocus