From cf1343d5591795a21a33cebb0c51732c5e201669 Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Mon, 18 Oct 2021 23:05:26 +0200
Subject: [PATCH] Project tree: Add the "Add everything to repository" button.

[DEVELOPMENT ENVIRONMENT]
* NEW: Project tree: Add the "Add everything to repository" button.
---
 app/src/gambas3/.src/FMain.class |  6 ++++++
 app/src/gambas3/.src/FMain.form  | 10 ++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/app/src/gambas3/.src/FMain.class b/app/src/gambas3/.src/FMain.class
index bfd6d1770..a8855e39b 100644
--- a/app/src/gambas3/.src/FMain.class
+++ b/app/src/gambas3/.src/FMain.class
@@ -3280,3 +3280,9 @@ Public Sub btnVcChanges_Click()
   FDebugInfo.btnVcChanges_Click
 
 End
+
+Public Sub btnVcAddAll_Click()
+
+  FMain.mnuAddVersionAll_Click()
+
+End
diff --git a/app/src/gambas3/.src/FMain.form b/app/src/gambas3/.src/FMain.form
index 59e82268c..c7edf1dfa 100644
--- a/app/src/gambas3/.src/FMain.form
+++ b/app/src/gambas3/.src/FMain.form
@@ -205,6 +205,7 @@
       { mnuVcAddAll Menu mnuAddVersionAll
         Name = "mnuVcAddAll"
         Text = ("Add everything to repository")
+        Picture = Picture["icon:/small/added"]
       }
       { mnuVcBranch Menu
         Action = "vc-branch"
@@ -1288,16 +1289,21 @@
         MoveScaled(2,1,27,4)
         Padding = 1
         { dwgBranchColor DrawingArea
-          MoveScaled(0,0,8,4)
+          MoveScaled(0,0,5,4)
           Visible = False
           Mouse = Mouse.Pointing
           Expand = True
         }
         { btnVcChanges ToolButton
-          MoveScaled(10,0,4,4)
+          MoveScaled(6,0,4,4)
           ToolTip = ("Modifications.") & "..."
           Picture = Picture["icon:/small/modified"]
         }
+        { btnVcAddAll ToolButton
+          MoveScaled(10,0,4,4)
+          ToolTip = ("Add everything to repository")
+          Picture = Picture["icon:/small/added"]
+        }
         { btnVcCommit ToolButton
           MoveScaled(14,0,4,4)
           ToolTip = ("Commit") & "..."