diff options
| author | mertz | 2003-05-13 08:03:33 +0000 |
|---|---|---|
| committer | mertz | 2003-05-13 08:03:33 +0000 |
| commit | 6c7d161db416f2815400223acc4d027ea9cb2f9d (patch) | |
| tree | f7ca3f907e8ed0082f66551da193457f764ecd43 /Perl/demos/zinc-demos | |
| parent | e3945520da769f3ec0820d8c573cb0fd0dfff4e6 (diff) | |
| download | tkzinc-6c7d161db416f2815400223acc4d027ea9cb2f9d.zip tkzinc-6c7d161db416f2815400223acc4d027ea9cb2f9d.tar.gz tkzinc-6c7d161db416f2815400223acc4d027ea9cb2f9d.tar.bz2 tkzinc-6c7d161db416f2815400223acc4d027ea9cb2f9d.tar.xz | |
displaying TkZinc version at the top of the demo list
Diffstat (limited to 'Perl/demos/zinc-demos')
| -rw-r--r-- | Perl/demos/zinc-demos | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index dd4f445..a931d92 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -17,7 +17,8 @@ use vars qw/$BRAKES $LIGHTS $OIL $SOBER $TRANS $WIPERS/; use vars qw/$COLOR $FONT_STYLE $POINT_SIZE $DEMO_FILE %DEMO_DESCRIPTION/; use strict; -print $Tk::Zinc::VERSION, "\n"; +my $version = $Tk::Zinc::VERSION; +print "Tkzinc version: $version\n"; $MW = Tk::MainWindow->new; $MW->configure(-menu => my $menubar = $MW->Menu); @@ -138,7 +139,7 @@ $T->tagBind(qw/demo <Motion>/ => [sub { # Create the text for the text widget. -$T->insert('end', "TkZinc perl Demonstrations\n", 'title'); +$T->insert('end', "TkZinc perl Demonstrations ($version)\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 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"); |