diff options
| author | mertz | 2002-07-02 08:28:53 +0000 |
|---|---|---|
| committer | mertz | 2002-07-02 08:28:53 +0000 |
| commit | f9410f5c3e881819b3d2dfb27dae38368218466b (patch) | |
| tree | 127d58b1e20aa54b72701e0262b74f7c37c65997 /Perl/demos/zinc-demos | |
| parent | 64a42ef746586095dd2c05cd5b53add4029c81eb (diff) | |
| download | tkzinc-f9410f5c3e881819b3d2dfb27dae38368218466b.zip tkzinc-f9410f5c3e881819b3d2dfb27dae38368218466b.tar.gz tkzinc-f9410f5c3e881819b3d2dfb27dae38368218466b.tar.bz2 tkzinc-f9410f5c3e881819b3d2dfb27dae38368218466b.tar.xz | |
int�gration de la d�mo textInput
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', |