Project open dialog: Ignore '.project' files at the root of home folders.

[DEVELOPMENT ENVIRONMENT]
* BUG: Fix debug browser selection button management again.
* BUG: Project open dialog: Ignore '.project' files at the root of home folders.

app/src/gambas3/.src/Debug/Design.module

@@ -307,7 +307,7 @@ Public Sub Debug_Read(Data As String)
   Dim sWhere As String
   Dim iPos As Integer
 
-  'ebug Quote(Data)
+  'Debug Quote(Data)
   $sBuffer &= Data
   iPos = InStr($sBuffer, "\n") 
   If iPos = 0 Then Return
@@ -801,6 +801,7 @@ End
 
 Private Sub WriteCommand(sCmd As String)
   
+  'Debug Quote(sCmd)
   If $hRemoteFifo Then
     If DEBUG_REMOTE Then Debug "---> "; sCmd
     Print #$hRemoteFifo, sCmd

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

@@ -1282,7 +1282,7 @@ Public Sub UpdateMenu()
     Action[sAction].Enabled = bEnabled
   Next
   
-  For Each sAction In ["run-extern", "gui", "profile", "open-profile", "run-with", "run-remote", "debug-config"]
+  For Each sAction In ["run-extern", "gui", "debug-browser", "profile", "open-profile", "run-with", "run-remote", "debug-config"]
     Action[sAction].Enabled = bEnabled
   Next
   
@@ -1329,6 +1329,9 @@ Public Sub UpdateMenu()
   Action["debug-browser"].Visible = bVisible
   UpdateDebugBrowser
   
+  Action["browser"].Visible = False
+  If bVisible And If Project.Running And If Not Project.Config["/Debug/Browser"] Then Action["browser"].Visible = True
+  
   'btnShowMenu.Visible = Not Me.Menus.Visible
   'btnShowMenu.Raise
   

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

@@ -6932,6 +6932,9 @@ Public Sub FindProjectPath(sPath As String) As String
   
   Do
     
+    If sPath = "/" Then Break
+    If sPath Begins "/home" And If Split(sPath, "/", "", True).Count = 2 Then Break
+    
     If Exist(sPath &/ ".project") Then 
       
       hFile = Open sPath &/ ".project"