diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/simpleradar.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/simpleradar.pl | 10 |
1 files changed, 6 insertions, 4 deletions
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 <lecoanet@cena.fr> # It has been adapted by C. Mertz <mertz@cena.fr> 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'}; |