From f9410f5c3e881819b3d2dfb27dae38368218466b Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 2 Jul 2002 08:28:53 +0000
Subject: int�gration de la d�mo textInput

---
 Perl/demos/zinc-demos | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl/demos')

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',
-- 
cgit v1.1