svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Добавил вывод информации о версиях tcl и tk
Some checks failed
Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Sergey Kalinin
2025-11-10 13:18:26 +03:00
parent ef87b88156
commit 45cbd7845b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/procedure.tcl
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\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] {