diff options
Diffstat (limited to 'Perl/demos')
-rw-r--r-- | Perl/demos/zinc-demos | 19 |
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'], |