proj, git, active branch was not updated when after an external checkout

CHANGELOG.md

@@ -8,6 +8,7 @@
 ## Bugs fixed
 
 - Editor: wrong position indicated in the call tips when starting to type an array literal, a slice or any other expression involving the square brackets. (#51)
+- Project Menu, Git: active branch was not updated when after an external checkout.
 
 # v3.9.5
 

src/u_main.lfm

@@ -11,7 +11,6 @@ object MainForm: TMainForm
   OnDropFiles = FormDropFiles
   OnResize = FormResize
   ShowHint = True
-  LCLVersion = '2.0.8.0'
   object mainMenu: TMainMenu
     top = 1
     object MenuItem1: TMenuItem
@@ -260,6 +259,7 @@ object MainForm: TMainForm
       end
       object mnuGitBranch: TMenuItem
         Caption = 'Git branch...'
+        OnClick = mnuGitBranchClick
       end
       object MenuItem116: TMenuItem
         Action = actProjGitPull

src/u_main.pas

@@ -331,6 +331,7 @@ type
     procedure ApplicationProperties1Activate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormResize(Sender: TObject);
+    procedure mnuGitBranchClick(Sender: TObject);
     procedure mnuItemAboutClick(Sender: TObject);
     procedure mnuItemCheckUpdClick(Sender: TObject);
     procedure mnuItemManualClick(Sender: TObject);
@@ -2118,6 +2119,11 @@ begin
   snapTopSplitterToMenu;
 end;
 
+procedure TMainForm.mnuGitBranchClick(Sender: TObject);
+begin
+  actProjGitBranchesUpd.Execute;
+end;
+
 procedure TMainForm.mnuItemAboutClick(Sender: TObject);
 begin
   fInfoWidg.showWidget;