Изменения перед слиянием

projman.tcl

@@ -1,6 +1,6 @@
 #!/bin/sh
 # Tcl ignores the next line -*- tcl -*- \
-exec wish8.6 "$0" -- "$@"
+exec wish9.0 "$0" -- "$@"
 
 ######################################################
 #        Tcl/Tk Project manager 2.0
@@ -8,9 +8,15 @@ exec wish8.6 "$0" -- "$@"
 # Author: Sergey Kalinin svk@nuk-svk.ru
 # Home page: https://nuk-svk.ru
 ######################################################
+<<<<<<< HEAD
 # Version: 2.0.0
 # Release: alpha20
 # Build: 07112025145212
+=======
+# Version: 2.1.0
+# Release: alpha0
+# Build: 10112025132121
+>>>>>>> tcltk9.0
 ######################################################
 
 # определим текущую версию, релиз и т.д.
@@ -43,6 +49,24 @@ package require fileutil
 # package require Thread
 package require fileutil::magic::filetype
 
+# Определим установлен ли пакет Img для расширенной поддержки изображений
+proc PackagePresent {pkg} {
+    # puts $pkg
+    foreach item [package names] {
+        # puts [string match -nocase Img $item]
+        if {[string match -nocase Img $item] == 1} {
+            puts "The $pkg package was found"
+            return true
+        }
+    }
+}
+
+if {[PackagePresent "Img"] eq "true"} {
+    package require Img
+} else {
+    puts "Img not present"
+}
+
 # Устанавливаем текущий каталог
 set dir(root) [pwd]
 set dir(doc) [file join $dir(root) doc]