From 7a4f7eaea1193011ac7da747d281ba3085a2cae5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <benoit.minisini@gambas-basic.org>
Date: Wed, 29 Jun 2022 00:30:19 +0200
Subject: [PATCH] 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 | 3 ++-
 app/src/gambas3/.src/FMain.class         | 5 ++++-
 app/src/gambas3/.src/Project.module      | 3 +++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/app/src/gambas3/.src/Debug/Design.module b/app/src/gambas3/.src/Debug/Design.module
index 5d89404e3..6da16c979 100644
--- a/app/src/gambas3/.src/Debug/Design.module
+++ b/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
diff --git a/app/src/gambas3/.src/FMain.class b/app/src/gambas3/.src/FMain.class
index 2065f606e..5ef7477c5 100644
--- a/app/src/gambas3/.src/FMain.class
+++ b/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
   
diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module
index 718814dcf..e936ef475 100644
--- a/app/src/gambas3/.src/Project.module
+++ b/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"