diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/zinc-widget | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/demos/zinc-widget b/demos/zinc-widget index cac216a..5ad7a8c 100644 --- a/demos/zinc-widget +++ b/demos/zinc-widget @@ -14,6 +14,7 @@ lappend auto_path $zincRoot set zinc_library $zincRoot package require Tkzinc 3.2 +set zincVersion [ package versions Tkzinc ] eval destroy [winfo child .] wm title . "Zinc Widget Demonstration" @@ -108,7 +109,7 @@ set lastLine "" # Create the text for the text widget. -.t insert end "Zinc/Tk Widget Demonstrations\n" title +.t insert end "Zinc/Tk Widget Demonstrations $zincVersion\n" title .t insert end { This application provides a front end for several short scripts in Tcl/Tk that demonstrate what you can do with the TkZinc widget. Each of the numbered lines below describes a demonstration; you can click on it to invoke the demonstration. Once the demonstration window appears, you can click the "See Code" button to see the Tcl/Tk code that created the demonstration. } |