summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/LabRadio.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/LabRadio.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/LabRadio.pm63
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/LabRadio.pm b/Master/tlpkg/tlperl/lib/Tk/LabRadio.pm
deleted file mode 100644
index 69e07b12f01..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/LabRadio.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-# Class LabeledRadiobutton
-
-package Tk::LabRadiobutton;
-
-use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/LabRadio.pm#4 $
-
-require Tk::Frame;
-use base qw(Tk::Frame);
-
-Construct Tk::Widget 'LabRadiobutton';
-
-
-# Although there is no fundamental reason why -radiobuttons
-# should be fixed at create time converting to METHOD form
-# is extra work an this can serve as an example of CreateArgs
-# checking.
-
-sub CreateArgs
-{
- my ($package,$parent,$args) = @_;
- $parent->BackTrace("Must specify -radiobuttons for $package")
- unless (defined $args->{'-radiobuttons'});
- return $package->SUPER::CreateArgs($parent,$args);
-}
-
-sub Populate
-{
- require Tk::Radiobutton;
-
- my ($cw,$args) = @_;
- $cw->SUPER::Populate($args);
-
- # LabeledRadiobutton(s) constructor.
- #
- # Advertised subwidgets: the name(s) of your radiobutton(s).
-
-
-
- my (@widgets) = ();
-
- my $rl;
- foreach $rl (@{$args->{'-radiobuttons'}})
- {
- my $r = $cw->Component( Radiobutton => $rl,
- -text => $rl,
- -value => $rl );
- $r->pack(-side => 'left', -expand => 1, -fill => 'both');
- push(@widgets,$r);
- $cw->{Configure}{-value} = $rl;
- }
-
- $cw->BackTrace('No buttons') unless (@widgets);
-
- $cw->ConfigSpecs('-variable' => [ \@widgets, undef, undef, \$cw->{Configure}{-value} ],
- '-radiobuttons' => [ 'PASSIVE', undef, undef, undef ],
- '-value' => [ 'PASSIVE', undef, undef, $cw->{Configure}{-value} ],
- 'DEFAULT' => [ \@widgets ]
- );
-}
-
-
-1;