diff options
Diffstat (limited to 'Perl/demos/zinc-demos')
| -rw-r--r-- | Perl/demos/zinc-demos | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 8016bd6..410e07b 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -17,6 +17,7 @@ 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"; $MW = Tk::MainWindow->new; $MW->configure(-menu => my $menubar = $MW->Menu); @@ -166,7 +167,7 @@ $T->insert('end', "5. Use of path tags... to come.\n"); $T->insert('end', "\n", '', "Interactions\n", 'title'); $T->insert('end', "1. Simple interaction on a track.\n", [qw/demo demo-simple_interaction_track/]); -$T->insert('end', "2. Text input in a text item and a track item... to come\n"); +$T->insert('end', "2. Text input in a text item and a track item.\n", [qw/demo textInput/]); $T->insert('end', "\n", '', "Transformation\n", 'title'); @@ -206,7 +207,6 @@ while ($_ = shift @dirent) { } # Create all the dialogs required by this demonstration. -print $Tk::Zinc::VERSION, "\n"; my $DIALOG_ABOUT = $MW->Dialog( -title => 'About zinc-demos', |