diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl index e6fbb4b..bab6b5f 100644 --- a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl +++ b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl @@ -2,14 +2,17 @@ # $Id$ # 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+)/); + use Tk; use Tk::Zinc; use Tk::Checkbutton; use Tk::Label; use strict; -package atomic_groups; - my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*'; my $mw = MainWindow->new(); my $zinc = $mw->Zinc(-width => 500, -height => 350, |