From 45cbd7845b9f0742976b5fdf10d0b08ec3a06d37 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <svkalinin@samsonpost.ru>
Date: Mon, 10 Nov 2025 13:18:26 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20?=
 =?UTF-8?q?=D0=B2=D1=8B=D0=B2=D0=BE=D0=B4=20=D0=B8=D0=BD=D1=84=D0=BE=D1=80?=
 =?UTF-8?q?=D0=BC=D0=B0=D1=86=D0=B8=D0=B8=20=D0=BE=20=D0=B2=D0=B5=D1=80?=
 =?UTF-8?q?=D1=81=D0=B8=D1=8F=D1=85=20tcl=20=D0=B8=20tk?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/procedure.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index 3e5139f..1e638b4 100644
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -254,11 +254,13 @@ proc FindImage {ext} {
 
 namespace eval Help {
     proc About {} {
-        global projman
+        global projman tcl_version tk_version
         set msg "Tcl/Tk project Manager\n\n"
         append msg  "Version: " $projman(Version) "\n" \
             "Release: " $projman(Release) "\n" \
             "Build: " $projman(Build) "\n\n" \
+            "Tcl Version: " $tcl_version "\n" \
+            "Tk Version: " $tk_version "\n\n" \
             "Author: " $projman(Author) "\n" \
             "Home page: " $projman(Homepage)
         # foreach name [array names projman] {