From 192f8262f0d79d929d015af5a37a76e47ffefb10 Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 3 Jul 2003 15:01:54 +0000
Subject: affichage de la version de Zinc dans le titre de la fenetre

---
 demos/zinc-widget | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'demos')

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.
 }
-- 
cgit v1.1