diff options
| author | mertz | 2003-07-03 15:01:54 +0000 |
|---|---|---|
| committer | mertz | 2003-07-03 15:01:54 +0000 |
| commit | 192f8262f0d79d929d015af5a37a76e47ffefb10 (patch) | |
| tree | 4120d6e4bdd6a0209c9337200f0841c8c5306636 /demos | |
| parent | 5917d40c2438e0b74785469313c15e30c5a7525b (diff) | |
| download | tkzinc-192f8262f0d79d929d015af5a37a76e47ffefb10.zip tkzinc-192f8262f0d79d929d015af5a37a76e47ffefb10.tar.gz tkzinc-192f8262f0d79d929d015af5a37a76e47ffefb10.tar.bz2 tkzinc-192f8262f0d79d929d015af5a37a76e47ffefb10.tar.xz | |
affichage de la version de Zinc dans le titre de la fenetre
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. } |