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

Фиксы диалога работы с Git (работа с выделенными файлами в списках)

Browse Source
This commit is contained in:
svkalinin 2022-11-16 16:26:46 +03:00
parent 3b8dc3d6f5
commit d70459970d
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/git.tcl
View File

@ -321,18 +321,21 @@ namespace eval Git {
proc CommitAdd {w} { proc CommitAdd {w} {
global activeProject cfgVariables global activeProject cfgVariables
# puts $values # puts $values
set selectedItems [$w.body.lBox curselection]
set cmd exec set cmd exec
lappend cmd $cfgVariables(gitCommand) lappend cmd $cfgVariables(gitCommand)
lappend cmd "add" lappend cmd "add"
foreach itemNumber [$w.body.lBox curselection] { foreach itemNumber [lsort -integer -increasing $selectedItems] {
set fileName [$w.body.lBox get $itemNumber] set fileName [$w.body.lBox get $itemNumber]
lappend cmd [file join $activeProject $fileName] lappend cmd [file join $activeProject $fileName]
$w.body.lCommit insert end $fileName
}
foreach itemNumber [lsort -integer -decreasing $selectedItems] {
$w.body.lBox delete $itemNumber $w.body.lBox delete $itemNumber
} }
catch $cmd pipe catch $cmd pipe
puts $cmd puts $cmd
$w.body.lCommit insert end $fileName $w.body.t delete 1.0 end
} }
proc Key {k fr} { proc Key {k fr} {
# puts [Editor::Key $k] # puts [Editor::Key $k]

2
projman.tcl
View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 16112022152218 # Build: 16112022162516
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.