From d70459970dc736e1e6235198f537a3f4232cc324 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 16 Nov 2022 16:26:46 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A4=D0=B8=D0=BA=D1=81=D1=8B=20=D0=B4=D0=B8?=
 =?UTF-8?q?=D0=B0=D0=BB=D0=BE=D0=B3=D0=B0=20=D1=80=D0=B0=D0=B1=D0=BE=D1=82?=
 =?UTF-8?q?=D1=8B=20=D1=81=20Git=20(=D1=80=D0=B0=D0=B1=D0=BE=D1=82=D0=B0?=
 =?UTF-8?q?=20=D1=81=20=D0=B2=D1=8B=D0=B4=D0=B5=D0=BB=D0=B5=D0=BD=D0=BD?=
 =?UTF-8?q?=D1=8B=D0=BC=D0=B8=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=D0=BC=D0=B8?=
 =?UTF-8?q?=20=D0=B2=20=D1=81=D0=BF=D0=B8=D1=81=D0=BA=D0=B0=D1=85)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/git.tcl | 9 ++++++---
 projman.tcl | 2 +-
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/git.tcl b/lib/git.tcl
index dc1f7f2..f7ddd88 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -321,18 +321,21 @@ namespace eval Git {
     proc CommitAdd {w} {
         global activeProject cfgVariables
         # puts $values
+        set selectedItems [$w.body.lBox curselection]
         set cmd exec
         lappend cmd $cfgVariables(gitCommand)
         lappend cmd "add"
-        foreach itemNumber [$w.body.lBox curselection] {
+        foreach itemNumber [lsort -integer -increasing $selectedItems] {
             set fileName [$w.body.lBox get $itemNumber]
             lappend cmd [file join $activeProject $fileName]
+            $w.body.lCommit insert end $fileName
+        }
+        foreach itemNumber [lsort -integer -decreasing $selectedItems] {
             $w.body.lBox delete $itemNumber
         }
         catch $cmd pipe
         puts $cmd
-        $w.body.lCommit insert end $fileName
-
+        $w.body.t delete 1.0 end
     }
     proc Key {k fr} {
         # puts [Editor::Key $k]
diff --git a/projman.tcl b/projman.tcl
index e091fb6..a67f7b5 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 16112022152218
+# Build: 16112022162516
 ######################################################
 
 # определим текущую версию, релиз и т.д.