diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl | 8 |
1 files changed, 6 insertions, 2 deletions
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 08d25b1..2ceb925 100644 --- a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl +++ b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl @@ -2,12 +2,16 @@ # $Id$ # This simple demo has been developped by C. Schlienger <celine@intuilab.com> +package simple_interaction_track; # for avoiding symbol collision between different demos + +use vars qw( $VERSION ); +($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); + + use Tk; use Tk::Zinc; use strict; -package simple_interaction_track; # for avoiding symbol collision between different demos - my $mw = MainWindow->new(); |