Новая сборка

debian/changelog

@@ -1,8 +1,9 @@
 projman (2.0.0-alpha18) stable; urgency=medium
 
-  *  Исправлено создание файла конфигурации.
+  *  Добавлено определение пути до git в зависимости от платформы.
+  *  Исправлено создание файла конфигурации
   *  Добавлены номера версий в вызов tclsh8.6 и wish8.6.
-  *  Убрана зависимостить на Threads.
+  *  Убрана зависимость на Threads.
   *  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
   *  Исправление работы процедуры varhelper
 
@@ -366,3 +367,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

lib/config.tcl

@@ -25,7 +25,7 @@ set ::configDefault "\[General\]
 cfgModifyDate=''
 searchCommand=/usr/bin/grep
 searchCommandOptions=-r -n -H
-gitCommand=/usr/bin/git
+gitCommand=
 # must return a mime type of file
 fileTypeCommand=/usr/bin/file
 fileTypeCommandOptions=-i -b

lib/git.tcl

@@ -11,7 +11,29 @@
 
 namespace eval Git {
     variable gitCommand
-    
+
+    # Определим путь до команды git в зависимсти от платформы
+    proc CommandPathSetting {} {
+        global cfgVariables tcl_platform
+        if {$cfgVariables(gitCommand) == ""} {
+            if {$tcl_platform(platform) eq "windows"} {
+                set cmd {where git}
+            } else {
+                set cmd {which git}
+            }
+            if {[catch {exec {*}$cmd} git_path]} {
+                puts "Git не найден в системе"
+                set cfgVariables(gitCommand) "Git not found"
+                return
+            }
+            set git_path [string trim $git_path]
+            set first_path [lindex [split $git_path "\n"] 0]
+            
+            # puts "Git найден: $first_path"
+            set cfgVariables(gitCommand) $first_path
+        }
+    }
+
     proc GetConfig {option} {
         global activeProject cfgVariables
         set confOptions {

projman.tcl

@@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha18
-# Build: 27102025140606
+# Build: 27102025144544
 ######################################################
 
 # определим текущую версию, релиз и т.д.
@@ -112,6 +112,8 @@ puts "Setting the locale... [::msgcat::mclocale]"
 
 source [file join $dir(lib) gui.tcl]
 
+Git::CommandPathSetting
+
 # Open the PATH if command line argument has been setting
 if [info exists opened] {
     foreach path $opened {
@@ -147,3 +149,4 @@ if [info exists opened] {
         }
     }
 }
+