aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/zinc-demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos/zinc-demos')
-rw-r--r--Perl/demos/zinc-demos4
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',