Добавлен перевод
This commit is contained in:
svkalinin
parent
9d8ba896f0
commit
0668ddd6fc
159
lib/git.tcl
159
lib/git.tcl
|
|
@ -145,6 +145,17 @@ namespace eval Git {
|
||||||
lappend cmd "reflog"
|
lappend cmd "reflog"
|
||||||
lappend cmd "--"
|
lappend cmd "--"
|
||||||
lappend cmd "$activeProject"
|
lappend cmd "$activeProject"
|
||||||
|
# if [regexp -nocase -- {^fatal:} $pipe match] {
|
||||||
|
# return
|
||||||
|
# }
|
||||||
|
puts $cmd
|
||||||
|
catch $cmd pipe
|
||||||
|
puts $pipe
|
||||||
|
foreach line [split $pipe "\n"] {
|
||||||
|
puts "$line"
|
||||||
|
lappend res $line
|
||||||
|
}
|
||||||
|
return $res
|
||||||
}
|
}
|
||||||
|
|
||||||
proc ListBoxPress {w} {
|
proc ListBoxPress {w} {
|
||||||
|
|
@ -185,6 +196,32 @@ namespace eval Git {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
proc DialogUpdate {w} {
|
||||||
|
global activeProject
|
||||||
|
# Git repo status
|
||||||
|
foreach { word } [Git::Status] {
|
||||||
|
# puts $word
|
||||||
|
if [regexp -nocase -- {([\w\s])([\s\w?]+)\s../(.+?)} $word match v1 v2 fileName] {
|
||||||
|
# puts "$v1 $v2 $fileName"
|
||||||
|
# $fr.body.t delete 1.0 end
|
||||||
|
if {$v1 ne " "} {
|
||||||
|
$w.body.lCommit insert end $fileName
|
||||||
|
}
|
||||||
|
if {$v2 ne " "} {
|
||||||
|
$w.body.lBox insert end $fileName
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Git commit history
|
||||||
|
foreach { line } [Git::Reflog] {
|
||||||
|
# puts $line
|
||||||
|
$w.body.lLog insert end $line
|
||||||
|
}
|
||||||
|
# End Git commit history
|
||||||
|
}
|
||||||
|
|
||||||
proc Dialog {} {
|
proc Dialog {} {
|
||||||
global cfgVariables activeProject nbEditor
|
global cfgVariables activeProject nbEditor
|
||||||
variable fr
|
variable fr
|
||||||
|
|
@ -198,68 +235,95 @@ namespace eval Git {
|
||||||
set lblText "$activeProject | [::msgcat::mc "Branch"]: [Git::Branches current]"
|
set lblText "$activeProject | [::msgcat::mc "Branch"]: [Git::Branches current]"
|
||||||
ttk::label $fr.header.$lblName -text $lblText -justify right
|
ttk::label $fr.header.$lblName -text $lblText -justify right
|
||||||
pack $fr.header.$lblName -side right -expand true -fill x
|
pack $fr.header.$lblName -side right -expand true -fill x
|
||||||
pack $fr.header -side top -fill x
|
pack $fr.header -side top -fill x -padx 3
|
||||||
|
|
||||||
ttk::frame $fr.body
|
ttk::frame $fr.body
|
||||||
pack $fr.body -side top -expand true -fill both
|
pack $fr.body -side top -expand true -fill both -padx 3
|
||||||
|
|
||||||
set lstFiles [listbox $fr.body.lBox -width 30 -border 0 -yscrollcommand "$fr.body.yscroll set" -border 1]
|
ttk::label $fr.body.lblUnindexed -justify left -padding {3 3} \
|
||||||
|
-text "[::msgcat::mc "Unindexed changes"]:"
|
||||||
|
|
||||||
|
listbox $fr.body.lBox -border 0 -yscrollcommand "$fr.body.yscroll set" -width 10
|
||||||
ttk::scrollbar $fr.body.yscroll -orient vertical -command "$fr.body.lBox yview"
|
ttk::scrollbar $fr.body.yscroll -orient vertical -command "$fr.body.lBox yview"
|
||||||
# pack $fr.body.lBox -expand true -fill y -side left
|
|
||||||
# pack $fr.body.yscroll -side left -expand false -fill y
|
|
||||||
|
|
||||||
set txt $fr.body.t
|
|
||||||
# set txt $frmText.t
|
|
||||||
|
|
||||||
# pack [ttk::scrollbar $fr.body.v -command "$fr.body.t yview"] -side right -fill y
|
# pack [ttk::scrollbar $fr.body.v -command "$fr.body.t yview"] -side right -fill y
|
||||||
ttk::scrollbar $fr.body.v -command "$fr.body.t yview"
|
ttk::scrollbar $fr.body.v -orient vertical -command "$fr.body.t yview"
|
||||||
ttk::scrollbar $fr.body.h -orient horizontal -command "$fr.body.t xview"
|
ttk::scrollbar $fr.body.h -orient horizontal -command "$fr.body.t xview"
|
||||||
ctext $txt -xscrollcommand "$fr.body.h set" -yscrollcommand "$fr.body.v set" \
|
ctext $fr.body.t -xscrollcommand "$fr.body.h set" -yscrollcommand "$fr.body.v set" \
|
||||||
-font $cfgVariables(font) -relief flat -wrap none -linemap 0 \
|
-font $cfgVariables(font) -relief flat -wrap none -linemap 0 \
|
||||||
-tabs "[expr {4 * [font measure $cfgVariables(font) 0]}] left" -tabstyle tabular -undo true
|
-tabs "[expr {4 * [font measure $cfgVariables(font) 0]}] left" \
|
||||||
|
-tabstyle tabular -undo true -width 10
|
||||||
|
|
||||||
ttk::button $fr.body.bAdd -image forward_20x20 -command "Git::CommitAdd $fr"
|
ttk::button $fr.body.bAdd -image forward_20x20 -compound center \
|
||||||
ttk::button $fr.body.bRemove -state disable -image backward_20x20
|
-command "Git::CommitAdd $fr"
|
||||||
ttk::button $fr.body.bCommit -image done_20x20 -compound left -text "[::msgcat::mc "Commit changes"]" \
|
ttk::button $fr.body.bRemove -compound center -image backward_20x20
|
||||||
-command "Git::Commit $fr.body.tCommit"
|
ttk::label $fr.body.lblCommitText -padding {3 3} \
|
||||||
ttk::button $fr.body.bDone -image doneall_20x20 -compound left -text "[::msgcat::mc "Push changes"]" \
|
-text "[::msgcat::mc "Commit description"]:"
|
||||||
-command Git::Push
|
|
||||||
|
|
||||||
set lstFilesCommit [listbox $fr.body.lCommit -width 30 -border 0 -yscrollcommand "$fr.body.yscroll2 set" -border 1]
|
listbox $fr.body.lCommit -border 0 -yscrollcommand "$fr.body.vlCommit set"
|
||||||
ttk::scrollbar $fr.body.yscroll2 -orient vertical -command "$fr.body.lCommit yview"
|
ttk::scrollbar $fr.body.vlCommit -orient vertical -command "$fr.body.lCommit yview"
|
||||||
|
|
||||||
ttk::label $fr.body.lblCommitText -text "[::msgcat::mc "Commit description"]"
|
|
||||||
ttk::scrollbar $fr.body.vCommit -command "$fr.body.tCommit yview"
|
ttk::scrollbar $fr.body.vCommit -command "$fr.body.tCommit yview"
|
||||||
ttk::scrollbar $fr.body.hCommit -orient horizontal -command "$fr.body.tCommit xview"
|
ttk::scrollbar $fr.body.hCommit -orient horizontal -command "$fr.body.tCommit xview"
|
||||||
ctext $fr.body.tCommit -xscrollcommand "$fr.body.hCommit set" -yscrollcommand "$fr.body.vCommit set" \
|
ctext $fr.body.tCommit -tabstyle tabular -undo true \
|
||||||
-font $cfgVariables(font) -relief flat -wrap none -linemap 0 \
|
-xscrollcommand "$fr.body.hCommit set" -yscrollcommand "$fr.body.vCommit set" \
|
||||||
-tabs "[expr {4 * [font measure $cfgVariables(font) 0]}] left" -tabstyle tabular -undo true
|
-font $cfgVariables(font) -relief flat -wrap none -linemap 0
|
||||||
|
|
||||||
|
ttk::button $fr.body.bCommit -image done_20x20 -compound left \
|
||||||
|
-text "[::msgcat::mc "Commit changes"]" \
|
||||||
|
-command "Git::Commit $fr.body.tCommit; Git::DialogUpdate $fr"
|
||||||
|
ttk::button $fr.body.bPush -image doneall_20x20 -compound left \
|
||||||
|
-text "[::msgcat::mc "Push changes"]" \
|
||||||
|
-command "Git::Push; Git::DialogUpdate $fr"
|
||||||
|
|
||||||
|
ttk::label $fr.body.lblLog -padding {3 3} -text "[::msgcat::mc "Commit history"]:"
|
||||||
|
listbox $fr.body.lLog -border 0 \
|
||||||
|
-yscrollcommand "$fr.body.vLog set" -xscrollcommand "$fr.body.hLog set"
|
||||||
|
ttk::scrollbar $fr.body.vLog -orient vertical -command "$fr.body.lLog yview"
|
||||||
|
ttk::scrollbar $fr.body.hLog -orient horizontal -command "$fr.body.lLog xview"
|
||||||
|
|
||||||
|
|
||||||
# pack $txt -fill both -expand 1
|
# pack $txt -fill both -expand 1
|
||||||
# pack $fr.body.h -side bottom -fill x
|
# pack $fr.body.h -side bottom -fill x
|
||||||
grid $lstFiles -column 0 -row 0 -sticky nsew -columnspan 3 -rowspan 2
|
|
||||||
grid $fr.body.yscroll -column 3 -row 0 -sticky nsw -rowspan 2
|
grid $fr.body.lblUnindexed -column 0 -row 0 -sticky new -columnspan 4
|
||||||
grid $txt -column 4 -row 0 -sticky nsew -columnspan 2
|
|
||||||
grid $fr.body.v -column 5 -row 0 -sticky nsew
|
grid $fr.body.lBox -column 0 -row 1 -sticky nsew -rowspan 2 -columnspan 2
|
||||||
grid $fr.body.h -column 4 -row 1 -columnspan 3 -sticky nsew
|
grid $fr.body.yscroll -column 2 -row 1 -sticky nsw -rowspan 2
|
||||||
grid rowconfigure $fr.body $fr.body.t -weight 1
|
grid $fr.body.t -column 3 -row 1 -sticky nsew -columnspan 2
|
||||||
grid columnconfigure $fr.body $fr.body.t -weight 1
|
grid $fr.body.v -column 5 -row 1 -sticky nsw
|
||||||
|
grid $fr.body.h -column 3 -row 2 -sticky new -columnspan 2
|
||||||
|
|
||||||
grid $fr.body.bAdd -column 0 -row 3 -sticky nsew
|
grid $fr.body.bAdd -column 0 -row 3 -sticky nsew
|
||||||
grid $fr.body.bRemove -column 1 -row 3 -sticky nsew
|
grid $fr.body.bRemove -column 1 -row 3 -sticky nsew
|
||||||
grid $fr.body.lCommit -column 0 -row 4 -columnspan 3 -rowspan 3 -sticky nsew
|
grid $fr.body.lblCommitText -column 3 -row 3 -sticky nsew -columnspan 2
|
||||||
grid $fr.body.lblCommitText -column 4 -row 3 -sticky nsew -columnspan 2
|
|
||||||
grid $fr.body.tCommit -column 4 -row 4 -sticky nsew -columnspan 2
|
|
||||||
grid $fr.body.vCommit -column 6 -row 4 -sticky nsew
|
|
||||||
grid $fr.body.hCommit -column 4 -row 5 -columnspan 3 -sticky nsew
|
|
||||||
grid $fr.body.bCommit -column 4 -row 6 -sticky nsew
|
|
||||||
grid $fr.body.bDone -column 5 -row 6 -sticky nsew
|
|
||||||
|
|
||||||
|
grid $fr.body.lCommit -column 0 -row 4 -sticky nsew -rowspan 3 -columnspan 2
|
||||||
|
grid $fr.body.vlCommit -column 2 -row 4 -sticky nsw -rowspan 3
|
||||||
|
grid $fr.body.tCommit -column 3 -row 4 -sticky nsew -columnspan 2
|
||||||
|
grid $fr.body.vCommit -column 5 -row 4 -sticky nsw
|
||||||
|
grid $fr.body.hCommit -column 3 -row 5 -sticky new -columnspan 2
|
||||||
|
grid $fr.body.bCommit -column 3 -row 6 -sticky new
|
||||||
|
grid $fr.body.bPush -column 4 -row 6 -sticky new
|
||||||
|
|
||||||
|
grid $fr.body.lblLog -column 0 -row 7 -sticky nsew -columnspan 5
|
||||||
|
grid $fr.body.lLog -column 0 -row 8 -sticky nsew -columnspan 5
|
||||||
|
grid $fr.body.vLog -column 5 -row 8 -sticky nsw
|
||||||
|
grid $fr.body.hLog -column 0 -row 9 -sticky new -columnspan 5
|
||||||
|
|
||||||
|
|
||||||
|
grid rowconfigure $fr.body $fr.body.t -weight 1
|
||||||
|
grid columnconfigure $fr.body $fr.body.t -weight 1
|
||||||
|
grid rowconfigure $fr.body $fr.body.tCommit -weight 1
|
||||||
|
grid columnconfigure $fr.body $fr.body.tCommit -weight 1
|
||||||
|
grid rowconfigure $fr.body $fr.body.lLog -weight 1
|
||||||
|
grid columnconfigure $fr.body $fr.body.lLog -weight 1
|
||||||
|
|
||||||
|
# Git repo status
|
||||||
foreach { word } [Git::Status] {
|
foreach { word } [Git::Status] {
|
||||||
puts $word
|
# puts $word
|
||||||
if [regexp -nocase -- {([\w\s])([\s\w?]+)\s../(.+?)} $word match v1 v2 fileName] {
|
if [regexp -nocase -- {([\w\s])([\s\w?]+)\s../(.+?)} $word match v1 v2 fileName] {
|
||||||
# puts "$v1 $v2 $fileName"
|
# puts "$v1 $v2 $fileName"
|
||||||
# $fr.body.t delete 1.0 end
|
# $fr.unindexed.t delete 1.0 end
|
||||||
if {$v1 ne " "} {
|
if {$v1 ne " "} {
|
||||||
$fr.body.lCommit insert end $fileName
|
$fr.body.lCommit insert end $fileName
|
||||||
}
|
}
|
||||||
|
|
@ -283,9 +347,16 @@ namespace eval Git {
|
||||||
Git::ListBoxPress $fr
|
Git::ListBoxPress $fr
|
||||||
}
|
}
|
||||||
|
|
||||||
ctext::addHighlightClassForRegexp $txt paths #19a2a6 {@@.+@@}
|
# Git commit history
|
||||||
ctext::addHighlightClassForRegexp $txt add green {^\+.*$}
|
foreach { line } [Git::Reflog] {
|
||||||
ctext::addHighlightClassForRegexp $txt gremove grey {^\-.*$}
|
# puts $line
|
||||||
$txt highlight 1.0 end
|
$fr.body.lLog insert end $line
|
||||||
|
}
|
||||||
|
# End Git commit history
|
||||||
|
|
||||||
|
ctext::addHighlightClassForRegexp $fr.body.t paths #19a2a6 {@@.+@@}
|
||||||
|
ctext::addHighlightClassForRegexp $fr.body.t add green {^\+.*$}
|
||||||
|
ctext::addHighlightClassForRegexp $fr.body.t gremove grey {^\-.*$}
|
||||||
|
$fr.body.t highlight 1.0 end
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -33,6 +33,7 @@
|
||||||
::msgcat::mcset ru "Commit" "Коммита"
|
::msgcat::mcset ru "Commit" "Коммита"
|
||||||
::msgcat::mcset ru "Commit description" "Описание коммита"
|
::msgcat::mcset ru "Commit description" "Описание коммита"
|
||||||
::msgcat::mcset ru "Commit changes" "Зафиксировать изменения"
|
::msgcat::mcset ru "Commit changes" "Зафиксировать изменения"
|
||||||
|
::msgcat::mcset ru "Commit history" "История изменений"
|
||||||
::msgcat::mcset ru "Company" "Компания"
|
::msgcat::mcset ru "Company" "Компания"
|
||||||
::msgcat::mcset ru "Compiler" "Компилятор"
|
::msgcat::mcset ru "Compiler" "Компилятор"
|
||||||
::msgcat::mcset ru "Compile" "Компиляция"
|
::msgcat::mcset ru "Compile" "Компиляция"
|
||||||
|
|
@ -199,6 +200,7 @@
|
||||||
::msgcat::mcset ru "Undo" "Отменить"
|
::msgcat::mcset ru "Undo" "Отменить"
|
||||||
::msgcat::mcset ru "Update" "Обновить"
|
::msgcat::mcset ru "Update" "Обновить"
|
||||||
::msgcat::mcset ru "Untraceable file" "Неотслеживаемый файл"
|
::msgcat::mcset ru "Untraceable file" "Неотслеживаемый файл"
|
||||||
|
::msgcat::mcset ru "Unindexed changes" "Неиндексированные изменения"
|
||||||
::msgcat::mcset ru "Variables" "Переменные"
|
::msgcat::mcset ru "Variables" "Переменные"
|
||||||
::msgcat::mcset ru "Version" "Версия"
|
::msgcat::mcset ru "Version" "Версия"
|
||||||
::msgcat::mcset ru "View" "Вид"
|
::msgcat::mcset ru "View" "Вид"
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user