From 5bce61c04e589e368d534c4797711ac73c1e1f23 Mon Sep 17 00:00:00 2001 From: Achil Date: Tue, 6 Sep 2022 18:56:51 +0200 Subject: Daniel Etienne pre release for Bullseye --- .../Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl | 2 +- Perl/demos/Tk/demos/zinc_lib/MagicLens.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 5 +++-- Perl/demos/Tk/demos/zinc_lib/all_options.pl | 12 ++++++------ Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/clipping.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/color-circular.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/color-x.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/color-y.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/contours.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/counter.pl | 2 +- Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/fillrule.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/groups_priority.pl | 18 +++++++++--------- Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/items.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/labelformat.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/lines.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/mapinfo.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/path_tags.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/rotation.pl | 4 ++-- .../Tk/demos/zinc_lib/simple_interaction_track.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/simpleradar.pl | 10 ++++++---- Perl/demos/Tk/demos/zinc_lib/testGraphics.pl | 7 ++++--- Perl/demos/Tk/demos/zinc_lib/textInput.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/tiger.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/transforms.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/translation.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/triangles.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/usedamage.pl | 12 ++++++------ Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/window-contours.pl | 4 ++-- Perl/demos/Tk/demos/zinc_lib/zoom.pl | 4 ++-- Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm | 4 ++-- Perl/demos/zinc-demos | 4 ++-- 38 files changed, 96 insertions(+), 92 deletions(-) (limited to 'Perl/demos') diff --git a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl index 42bb2d1..8a7a0bd 100644 --- a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl +++ b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl @@ -2,7 +2,7 @@ # TripleRotatingWheel gambling game contributed by "zentara" # Idea derived from the wheelOfFortune.pl demo by D. Etienne etienne@cena.fr -# $Id$ +# $Id: TripleRotatingWheel.pl 1375 2004-03-05 14:54:23Z etienne $ use Tk; diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl index a625254..d40c733 100644 --- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl +++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl @@ -11,11 +11,11 @@ # # Authors: Jean-Luc Vinot # -# $Id$ +# $Id: MagicLens.pl 1551 2004-09-21 12:47:28Z mertz $ #----------------------------------------------------------------------------------- use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl index f6c9df0..565c173 100644 --- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl +++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl @@ -4,7 +4,7 @@ # # Zetris - A Zinc Toy-Appli based on cool TkTetris from Slaven Rezic # -# $Id$ +# $Id: Zetris.pl 1277 2003-11-28 09:43:10Z mertz $ # # Copyright (C) 2002 Centre d'Etudes de la Navigation Aérienne # Author: Marcellin Buisson @@ -75,7 +75,7 @@ use Getopt::Long; use vars qw($VERSION); -$VERSION = sprintf("%d.%00d", q$Revision$ =~ /(\d+)\.(\d+)/); +$VERSION = sprintf("%d.%00d", q$Revision: 1277 $ =~ /(\d+)\.(\d+)/); my $max_size = 4; my $nmbr_blks = 7; @@ -369,6 +369,7 @@ sub resize_calc sub make_key_bindings { my $top = shift; + $top->bind('' => sub { $top->focus }); # $top->bind('' => \&quit_game); # $top->bind('' => \&quit_game); # $top->bind('' => \&quit_game); 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 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]); } diff --git a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl index 67c019c..32cab30 100644 --- a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl +++ b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -# $Id$ +# $Id: atomic-groups.pl 1420 2004-04-30 11:35:18Z lecoanet $ # this simple sample has been developped by C. Mertz mertz@cena.fr package atomic_groups; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl index 4a320e0..5306e50 100644 --- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl +++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id$ +# $Id: clipping.pl 1420 2004-04-30 11:35:18Z lecoanet $ # this simple sample has been developped by C. Mertz mertz@cena.fr use Tk; @@ -10,7 +10,7 @@ use Tk::Checkbutton; package clipping; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); my $defaultfont = '-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*'; my $mw = MainWindow->new(); diff --git a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl index 1ee1638..23be8ce 100644 --- a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl +++ b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: color-circular.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have 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: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl b/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl index 264811f..54f2e6d 100644 --- a/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl +++ b/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: color-path-and-conic.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have 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: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/color-x.pl b/Perl/demos/Tk/demos/zinc_lib/color-x.pl index 62937b2..11cca42 100644 --- a/Perl/demos/Tk/demos/zinc_lib/color-x.pl +++ b/Perl/demos/Tk/demos/zinc_lib/color-x.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: color-x.pl 1549 2004-09-21 12:43:03Z mertz $ # these simple samples have 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: 1549 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/color-y.pl b/Perl/demos/Tk/demos/zinc_lib/color-y.pl index b33f269..e8fd404 100644 --- a/Perl/demos/Tk/demos/zinc_lib/color-y.pl +++ b/Perl/demos/Tk/demos/zinc_lib/color-y.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: color-y.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have 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: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/contours.pl b/Perl/demos/Tk/demos/zinc_lib/contours.pl index db0b960..ba54520 100644 --- a/Perl/demos/Tk/demos/zinc_lib/contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: contours.pl 1156 2003-09-15 12:25:06Z mertz $ # This simple demo has been developped by C. Mertz package contours; # for avoiding symbol collision between different demos @@ -10,7 +10,7 @@ use Tk::Zinc; use strict; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); my $mw = MainWindow->new(); diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl index a0e9534..4476db8 100644 --- a/Perl/demos/Tk/demos/zinc_lib/counter.pl +++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl @@ -4,7 +4,7 @@ package counter; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl index bc59863..ffa6061 100644 --- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl +++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: curve_bezier.pl 1550 2004-09-21 12:45:38Z mertz $ # This simple demo has been developped by C. Mertz ####### This file has been initially inspired from svg examples @@ -7,7 +7,7 @@ package curveBezier; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1550 $ =~ /(\d+)\.(\d+)/); use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl index 08ec781..d2fd7bb 100644 --- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl +++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: fillrule.pl 1551 2004-09-21 12:47:28Z mertz $ # This simple demo has been developped by C. Mertz ####### This file has been largely inspired from figure 11-3 @@ -11,7 +11,7 @@ ####### contour, coords and clone method use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/); use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl index 74cc71c..256059d 100644 --- a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl +++ b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl @@ -11,7 +11,7 @@ # We must know if a neamed gradient already exists, when launching # many time the same demo in the same process! # -# $Id$ +# $Id: groups_in_ATC_strips.pl 1551 2004-09-21 12:47:28Z mertz $ #----------------------------------------------------------------------------------- # This small application illustrates both the use of groups in combination # of -composescale attributes and an implementation of kind of air traffic @@ -41,7 +41,7 @@ package groups_in_ATC_strips; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl index e7f872d..968bd01 100644 --- a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl +++ b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: groups_priority.pl 1156 2003-09-15 12:25:06Z mertz $ # This simple demo has been developped by C. Mertz package groups_priority; # for avoiding symbol sharing between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; @@ -141,13 +141,13 @@ sub updateLabel { my ($group) = @_; my $priority = $zinc->itemcget($group, -priority); # we get the text item from this group: - my $textitem = $zinc->find('withtype', 'text', ".$group."); + my ($textitem) = $zinc->find('withtype', 'text', ".$group."); $zinc->itemconfigure($textitem, -text => "pri=$priority"); } sub setPriorrity { my ($zinc, $priority) = @_; - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; $zinc->itemconfigure ($item, -priority => $priority); &updateLabel($item); @@ -158,7 +158,7 @@ sub setPriorrity { sub lower { my ($zinc) = @_; # to get the item under the cursor! - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; $zinc->lower($item); &updateLabel($item); @@ -168,7 +168,7 @@ sub lower { sub raise { my ($zinc) = @_; # to get the item under the cursor! - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; $zinc->raise($item); &updateLabel($item); @@ -178,7 +178,7 @@ sub raise { sub lowerGroup { my ($zinc) = @_; # to get the item under the cursor! - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; my $coloredGroup = $zinc->group($item); $zinc->lower($coloredGroup); @@ -188,7 +188,7 @@ sub lowerGroup { sub raiseGroup { my ($zinc) = @_; # to get the item under the cursor! - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; my $coloredGroup = $zinc->group($item); $zinc->raise($coloredGroup); @@ -199,7 +199,7 @@ sub raiseGroup { sub toggleItemGroup { my ($zinc) = @_; # to get the item under the cursor! - my $item = $zinc->find('withtag', 'current'); + my ($item) = $zinc->find('withtag', 'current'); return unless $item; my $newgroup; if ($group1 == $zinc->group($item)) { diff --git a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl index 1274ffc..7e578e4 100644 --- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl +++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -# $Id$ +# $Id: icon_zoom_resize.pl 1420 2004-04-30 11:35:18Z lecoanet $ # this simple demo has been developped by C. Mertz package icon_zoom__resize; # for avoiding symbol re-use between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/items.pl b/Perl/demos/Tk/demos/zinc_lib/items.pl index d092924..853208d 100644 --- a/Perl/demos/Tk/demos/zinc_lib/items.pl +++ b/Perl/demos/Tk/demos/zinc_lib/items.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: items.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have 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: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl index 465eb07..24db712 100644 --- a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl +++ b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: labelformat.pl 1156 2003-09-15 12:25:06Z mertz $ # This simple demo has been developped by C. Mertz use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/lines.pl b/Perl/demos/Tk/demos/zinc_lib/lines.pl index 5469404..24f7a5c 100644 --- a/Perl/demos/Tk/demos/zinc_lib/lines.pl +++ b/Perl/demos/Tk/demos/zinc_lib/lines.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: lines.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have 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: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl index f6dc46e..aeeee97 100644 --- a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: mapinfo.pl 1420 2004-04-30 11:35:18Z lecoanet $ # This simple demo has been developped by C. Schlienger use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl index 30272d8..0b70680 100644 --- a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl +++ b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: path_tags.pl 1258 2003-10-14 09:01:52Z mertz $ # this pathtatg demo have been developped by C. Mertz mertz@cena.fr # with the help of Daniel Etienne etienne@cena.fr use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1258 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/rotation.pl b/Perl/demos/Tk/demos/zinc_lib/rotation.pl index c5549bf..08ebdb9 100644 --- a/Perl/demos/Tk/demos/zinc_lib/rotation.pl +++ b/Perl/demos/Tk/demos/zinc_lib/rotation.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: rotation.pl 1420 2004-04-30 11:35:18Z lecoanet $ # This simple demo has been developped by C. Schlienger use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; diff --git a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl index 2ceb925..369708b 100644 --- a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl +++ b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -# $Id$ +# $Id: simple_interaction_track.pl 1156 2003-09-15 12:25:06Z mertz $ # This simple demo has been developped by C. Schlienger package simple_interaction_track; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use Tk; diff --git a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl index 06cec3c..e70229b 100644 --- a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl +++ b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl @@ -1,12 +1,12 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: simpleradar.pl 1872 2007-03-06 09:28:05Z lecoanet $ # This simple radar has been initially developped by P. Lecoanet # It has been adapted by C. Mertz for demo purpose. package simpleradar; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1872 $ =~ /(\d+)\.(\d+)/); use Tk; @@ -53,7 +53,7 @@ my %tracks = (); my $pause = 0; # if true the flight are no more moving my $zinc = $mw->Zinc(-render => 1, - -enablerotation => 1, + # -enablerotation => 1, -backcolor => 'gray65', -relief => 'sunken', -font => "10x20"); @@ -255,7 +255,9 @@ sub create_route { my $x; my $y; my $i = 4; - my $track = $tracks{$zinc->find('withtag', 'current')}; + # my $track = $tracks{$zinc->find('withtag', 'current')}; + my ($item_) = $zinc->find('withtag', 'current'); + my $track = $tracks{$item_}; if ($track->{'route'} == 0) { $x = $track->{'x'} + 8.0 * $track->{'vx'}; diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl index 5da149b..6c9eb76 100644 --- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl +++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl @@ -6,11 +6,11 @@ # # Authors: Jean-Luc Vinot # -# $Id$ +# $Id: testGraphics.pl 1548 2004-09-21 12:41:55Z mertz $ #----------------------------------------------------------------------------------- use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1548 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; @@ -30,7 +30,8 @@ my ($dx, $dy); my $tabanchor = 'n'; my $tabalign = 'left'; -my $font_9b = '7x13bold'; +# my $font_9b = '7x13bold'; +my $font_9b = ":pixelsize=12"; # the original font is not standard, even if it is fully free: # my $font_9b = '-cenapii-bleriot mini-bold-r-normal--9-90-75-75-p-75-iso8859-15'; diff --git a/Perl/demos/Tk/demos/zinc_lib/textInput.pl b/Perl/demos/Tk/demos/zinc_lib/textInput.pl index 414f613..fa8d8f5 100644 --- a/Perl/demos/Tk/demos/zinc_lib/textInput.pl +++ b/Perl/demos/Tk/demos/zinc_lib/textInput.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: textInput.pl 1180 2003-09-24 15:08:37Z mertz $ # This simple demo has been developped by C. Mertz package textInput; # for avoiding symbol re-use between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1180 $ =~ /(\d+)\.(\d+)/); use Tk; diff --git a/Perl/demos/Tk/demos/zinc_lib/tiger.pl b/Perl/demos/Tk/demos/zinc_lib/tiger.pl index 4972d39..5c9cfe9 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: tiger.pl 1602 2005-01-15 14:28:56Z mertz $ # This simple demo has been developped by C. Mertz ####### This file has been initially generated from tiger.svg by SVG2zinc.pm Version: Revision: 1.10 @@ -8,7 +8,7 @@ ### under linux) was from Daniel Etienne! Thx! use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1602 $ =~ /(\d+)\.(\d+)/); use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl index 8e3ca9d..fef47b5 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl @@ -1,12 +1,12 @@ #!/usr/bin/perl -# $Id$ +# $Id: tkZincLogo.pl 1420 2004-04-30 11:35:18Z lecoanet $ # this simple demo has been adapted by C. Mertz from the original # work of JL. Vinot package tkZincLogo; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/transforms.pl b/Perl/demos/Tk/demos/zinc_lib/transforms.pl index 0d8cab0..d1ad366 100644 --- a/Perl/demos/Tk/demos/zinc_lib/transforms.pl +++ b/Perl/demos/Tk/demos/zinc_lib/transforms.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: transforms.pl 1181 2003-09-24 15:10:39Z mertz $ # This simple demo has been developped by P. Lecoanet use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1181 $ =~ /(\d+)\.(\d+)/); # # TODO: diff --git a/Perl/demos/Tk/demos/zinc_lib/translation.pl b/Perl/demos/Tk/demos/zinc_lib/translation.pl index f6abb15..cb13565 100644 --- a/Perl/demos/Tk/demos/zinc_lib/translation.pl +++ b/Perl/demos/Tk/demos/zinc_lib/translation.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: translation.pl 1420 2004-04-30 11:35:18Z lecoanet $ # This simple demo has been developped by C. Schlienger use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; diff --git a/Perl/demos/Tk/demos/zinc_lib/triangles.pl b/Perl/demos/Tk/demos/zinc_lib/triangles.pl index 2dfba41..4bc24c6 100644 --- a/Perl/demos/Tk/demos/zinc_lib/triangles.pl +++ b/Perl/demos/Tk/demos/zinc_lib/triangles.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: triangles.pl 1420 2004-04-30 11:35:18Z lecoanet $ # these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl index 2ad1496..c4ffa61 100644 --- a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl +++ b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl @@ -2,12 +2,12 @@ # # Use damage test # -# $Id$ +# $Id: usedamage.pl 1901 2008-01-23 16:57:52Z lemort $ # this simple test has been developped by A.Lemort lemort@intuilab.com use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1901 $ =~ /(\d+)\.(\d+)/); use strict; use Tk; @@ -77,17 +77,17 @@ $zinc->bind($circle, '', [\&motion, Ev('x'), Ev('y')]); # Add bindings to change the value of usedamage $mw->bind('', sub { # No optimization - $zinc->configure(-usedamage => 0); + $zinc->configure(-usedamage => 0); $zinc->itemconfigure($label, -text => 'usedamage=0: Without OpenGL optimization'); }); $mw->bind('', sub { # OpenGL optimization (best with Nvidia - $zinc->configure(-usedamage => 1); + $zinc->configure(-usedamage => 1); $zinc->itemconfigure($label, -text => 'usedamage=1: With OpenGL optimization (better performance but works only with Nvidia cards)'); }); $mw->bind('', sub { # OpenGL optimization (best with Nvidia - $zinc->configure(-usedamage => 2); + $zinc->configure(-usedamage => 2); $zinc->itemconfigure($label, -text => 'usedamage=2: With OpenGL optimization (a bit slower but much better compatibility)'); }); @@ -102,7 +102,7 @@ my $delta = 550/$N; my $commandFrame = $mw->Frame()->pack(-expand => 1, -fill => 'both'); my $commandFrameTitle = $commandFrame->LabFrame( - -label => 'Automatic benchmark: trasnlate our circle from top-left to bottom-right ('.$N.' steps)', + -label => 'Automatic benchmark: translate our circle from top-left to bottom-right ('.$N.' steps)', )->pack( -side => 'bottom', -fill => 'both', diff --git a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl index cf117a5..c1b7acd 100644 --- a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl +++ b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl @@ -3,12 +3,12 @@ # This short script tries to demonstrate with a simple example what you can # do with Tk Zinc widget, in particular how to use group item, clipping, and # transformations. -# $Id$ +# $Id: wheelOfFortune.pl 1374 2004-03-05 12:36:08Z etienne $ # this demo has been developped by D. Etienne etienne@cena.fr # use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1374 $ =~ /(\d+)\.(\d+)/); use Tk; # Zinc module is loaded... diff --git a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl index 9f16f95..6d1c1b2 100644 --- a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl @@ -1,11 +1,11 @@ #!/usr/bin/perl -w -# $Id$ +# $Id: window-contours.pl 1156 2003-09-15 12:25:06Z mertz $ # This simple demo has been developped by C. Mertz package window_contours; # for avoiding symbol collision between different demos use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Zinc; diff --git a/Perl/demos/Tk/demos/zinc_lib/zoom.pl b/Perl/demos/Tk/demos/zinc_lib/zoom.pl index a1ad925..3426275 100644 --- a/Perl/demos/Tk/demos/zinc_lib/zoom.pl +++ b/Perl/demos/Tk/demos/zinc_lib/zoom.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -# $Id$ +# $Id: zoom.pl 1420 2004-04-30 11:35:18Z lecoanet $ # This simple demo has been developped by C. Schlienger use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/); use Tk; diff --git a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm index 723f3ec..518a181 100644 --- a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm +++ b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm @@ -1,13 +1,13 @@ package SimpleRadarControls; -# $Id$ +# $Id: SimpleRadarControls.pm 1156 2003-09-15 12:25:06Z mertz $ # This simple radar has been initially developped by P. Lecoanet # It has been adapted by C. Mertz for demo purpose. # Thanks to Dunnigan,Jack [Edm]" for a bug correction. use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); $top = 1; diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 10a9c21..7fe06df 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -20,7 +20,7 @@ use vars qw/$COLOR $FONT_STYLE $POINT_SIZE $DEMO_FILE %DEMO_DESCRIPTION/; use strict; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1889 $ =~ /(\d+)\.(\d+)/); my $version = $Tk::Zinc::VERSION; print "Tkzinc version: $version\n"; @@ -447,7 +447,7 @@ __END__ =head1 NAME -zinc-demos - Demonstration of TkZinc widget functionnality +zinc-demos - Demonstration of TkZinc widget functionality =head1 SYNOPSYS -- cgit v1.1