diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/all_options.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/all_options.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl index 25140f2..475602d 100644 --- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl +++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: all_options.pl 1487 2004-05-14 09:06:20Z lecoanet $ # This simple demo has been developped by C. Mertz <mertz@cena.fr> use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1487 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; @@ -33,22 +33,22 @@ my $zinc = $mw->Zinc(-width => 1, -height => 1, my %itemtypes; # These Items have fields! So the number of fields must be given at creation time -foreach my $type qw(tabular track waypoint) { +foreach my $type (qw(tabular track waypoint)) { $itemtypes{$type} = $zinc->add($type, 1, 0); } # These items needs no specific initial values -foreach my $type qw(group icon map reticle text window) { +foreach my $type (qw(group icon map reticle text window)) { $itemtypes{$type} = $zinc->add($type, 1); } # These items needs some coordinates at creation time # However curves usually needs more than 2 points. -foreach my $type qw(arc curve rectangle) { +foreach my $type (qw(arc curve rectangle)) { $itemtypes{$type} = $zinc->add($type, 1, [0,0 , 1,1]); } # Triangles item needs at least 3 points for the coordinates -foreach my $type qw(triangles) { +foreach my $type (qw(triangles)) { $itemtypes{$type} = $zinc->add($type, 1, [0,0 , 1,1 , 2,2]); } |