*** empty log message ***

1 files changed, 11 insertions, 8 deletions

diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos
index 096aac0..91032cd 100644
--- a/Perl/demos/zinc-demos
+++ b/Perl/demos/zinc-demos
@@ -6,6 +6,7 @@ eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
 require 5.004;
 
 use Tk 800.000;
+use Tk::Zinc;   # only for getting $Tk::Zinc::VERSION
 use lib Tk->findINC('demos/widget_lib');
 use Tk::widgets qw/Dialog ErrorDialog ROText/;
 use WidgetDemo;
@@ -38,7 +39,7 @@ $MW->configure(-menu => my $menubar = $MW->Menu);
 
 @MainWindow::ISA = 'WidgetWrap';
 
-$MW->title('Widget Demonstration');
+$MW->title('TkZinc Perl demonstrations');
 $FONT = '-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*';
 my $widget_lib = Tk->findINC('demos/widget_lib');
 my $zinc_lib = Tk->findINC('demos/zinc_lib');
@@ -57,7 +58,7 @@ my $file = $menubar->cascade(qw/-label File -underline 0 -menuitems/ =>
     [
       [cascade    => '~View', -menuitems =>
         [
-          [command  => '~widget', -command => [\&view_widget_code, __FILE__]],
+          [command  => '~zinc-demos', -command => [\&view_widget_code, __FILE__]],
           [command  => '~WidgetDemo', -command => [\&view_widget_code, $wd]],
         ], # end cascade menuitems
       ], # end view cascade
@@ -136,9 +137,9 @@ $T->tagBind(qw/demo <Motion>/ => [sub {
 
 # Create the text for the text widget.
 
-$T->insert('end', "Zinc perl/Tk Demonstrations\n", 'title');
+$T->insert('end', "TkZinc perl Demonstrations\n", 'title');
 $T->insert('end',
-"\nThis application provides a front end for several short scripts in perl/Tk that demonstrate what you can do with the Zinc 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 Perl/Tk code that created the demonstration.\n");
+"\nThis application provides a front end for several short scripts in perl/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 Perl/Tk code that created the demonstration.\n");
 
 $T->insert('end', "\n", '', "Small applications\n", 'title');
 $T->insert('end', "1. A simple animated application \"the Wheel of Fortune\".\n", [qw/demo demo-wheelOfFortune/]);
@@ -172,7 +173,7 @@ $T->insert('end', "3. Zooming.\n",     [qw/demo demo-zoom/]);
 $T->insert('end', "3. Transformation testbed.\n",     [qw/demo demo-transforms/]);
 
 $T->insert('end', "\n", '', "Use of openGL\n", 'title');
-$T->insert('end', "1. The tkZinc Logo (needs openGL).\n",  [qw/demo demo-tkZincLogo/]);
+$T->insert('end', "1. The TkZinc Logo (needs openGL).\n",  [qw/demo demo-tkZincLogo/]);
 $T->insert('end', "2. Axial color variation on the X axis (needs openGL).\n", [qw/demo demo-color-x/]);
 $T->insert('end', "3. Axial color variation on the Y axis (needs openGL).\n", [qw/demo demo-color-y/]);
 $T->insert('end', "4. Circular color variation (needs openGL).\n", [qw/demo demo-color-circular/]);
@@ -201,14 +202,16 @@ while ($_ = shift @dirent) {
 }
 
 # Create all the dialogs required by this demonstration.
+print $Tk::Zinc::VERSION, "\n";
 
 my $DIALOG_ABOUT = $MW->Dialog(
-    -title          => 'About widget',
+    -title          => 'About zinc-demos',
     -bitmap         => 'info',
     -default_button => 'OK',
     -buttons        => ['OK'],
-    -text           => "         widget\n\nPerl Version $]" .
-		       "\nTk Version $Tk::VERSION\n\n      2000/07/07",
+    -text           => "TkZinc Perl demonstrations\n\nPerl Version $]" .
+		       "\nTk Version $Tk::VERSION" .
+                       "\nTkZinc Version $Tk::Zinc::VERSION\n",
 );
 $help->cget(-menu)->entryconfigure('About',
     -command => [$DIALOG_ABOUT => 'Show'],