From b83313b9bea2ac81ec1a35695049fe9a01a42f64 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Fri, 21 Oct 2022 14:59:08 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D1=8F=20=D0=B3=D1=83=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/git.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/git.tcl b/lib/git.tcl
index 1c03040..3d0f4ad 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -78,6 +78,8 @@ namespace eval Git {
             lappend res $line
         }
         # cd $d
+        
+        .frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
         if [info exists res] {
             return $res
         }
@@ -455,7 +457,7 @@ namespace eval Git {
         # pack $win.yscroll -side left -expand false -fill y
         grid $win.bAdd -column 0 -row 0 -columnspan 2 -sticky new
         grid $win.lBox -column 0 -row 1
-        grid $win.yscroll -column 1 -row 1
+        grid $win.yscroll -column 1 -row 1 -sticky nsw
         
         set lst [Git::Branches all]
         foreach { word } $lst {