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

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

Browse Source
This commit is contained in:
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 lappend res $line
} }
# cd $d # cd $d
.frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
if [info exists res] { if [info exists res] {
return $res return $res
} }
@ -455,7 +457,7 @@ namespace eval Git {
# pack $win.yscroll -side left -expand false -fill y # pack $win.yscroll -side left -expand false -fill y
grid $win.bAdd -column 0 -row 0 -columnspan 2 -sticky new grid $win.bAdd -column 0 -row 0 -columnspan 2 -sticky new
grid $win.lBox -column 0 -row 1 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] set lst [Git::Branches all]
foreach { word } $lst { foreach { word } $lst {