Добавил вывод номера версии tcl/tl в О Программе
Some checks failed
Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled

This commit is contained in:
Sergey Kalinin
2025-11-10 13:13:44 +03:00
parent df1d9aa36d
commit b830838f8e
3 changed files with 14 additions and 5 deletions

7
debian/changelog vendored
View File

@@ -1,3 +1,9 @@
projman (2.1.0-alpha0) stable; urgency=medium
* Незначительные изменения
-- Sergey Kalinin <svkalinin@samsonpost.ru> Mon, 10 Nov 2025 13:00:43 +0300
projman (2.0.0-alpha19) stable; urgency=medium projman (2.0.0-alpha19) stable; urgency=medium
* Небольшие исправления * Небольшие исправления
@@ -394,3 +400,4 @@ projman (2.0.0-alfa0) stable; urgency=medium

View File

@@ -254,11 +254,13 @@ proc FindImage {ext} {
namespace eval Help { namespace eval Help {
proc About {} { proc About {} {
global projman global projman tcl_version tk_version
set msg "Tcl/Tk project Manager\n\n" set msg "Tcl/Tk project Manager\n\n"
append msg "Version: " $projman(Version) "\n" \ append msg "Version: " $projman(Version) "\n" \
"Release: " $projman(Release) "\n" \ "Release: " $projman(Release) "\n" \
"Build: " $projman(Build) "\n\n" \ "Build: " $projman(Build) "\n" \
"Tcl Version: " $tcl_version "\n" \
"Tk Version: " $tk_version "\n\n" \
"Author: " $projman(Author) "\n" \ "Author: " $projman(Author) "\n" \
"Home page: " $projman(Homepage) "Home page: " $projman(Homepage)
# foreach name [array names projman] { # foreach name [array names projman] {

View File

@@ -8,9 +8,9 @@ exec wish9.0 "$0" -- "$@"
# Author: Sergey Kalinin svk@nuk-svk.ru # Author: Sergey Kalinin svk@nuk-svk.ru
# Home page: https://nuk-svk.ru # Home page: https://nuk-svk.ru
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.1.0
# Release: alpha19 # Release: alpha0
# Build: 30102025145246 # Build: 10112025130218
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.