svk
/
projman
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases Wiki Activity

Исправления гуя

master
svkalinin 2022-10-21 14:59:08 +03:00
parent 335d088344
commit b83313b9be
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/git.tcl
View File

@ -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 {