/usr/share/perl5/Tkx/LabEntry.pm is in libtkx-perl 1.09-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | package Tkx::LabEntry;
use base qw(Tkx::widget Tkx::MegaConfig);
__PACKAGE__->_Mega("tkx_LabEntry");
__PACKAGE__->_Config(
-label => [[".lab" => "-text"]],
);
sub _Populate {
my($class, $widget, $path, %opt) = @_;
my $self = $class->new($path)->_parent->new_frame(-name => $path, -class => "Tkx_LabEntry");
$self->_class($class);
$self->new_label(-name => "lab", -text => delete $opt{-label})->g_pack(-side => "left");
$self->new_entry(-name => "e", %opt)->g_pack(-side => "left", -fill => "both", -expand => 1);
$self;
}
sub _mpath {
my $self = shift;
"$self.e";
}
1;
=head1 NAME
Tkx::LabEntry - Labeled entry widget
=head1 SYNOPSIS
use Tkx;
use Tkx::LabEntry;
my $mw = Tkx::widget->new(".");
my $e = $mw->new_tkx_LabEntry(-label => "Name");
$e->g_pack;
my $b = $mw->new_button(
-text => "Done",
-command => sub {
print $e->get, "\n";
$mw->g_destroy;
},
);
$b->g_pack;
Tkx::MainLoop();
=head1 DESCRIPTION
The C<Tkx::LabEntry> module implements a trivial megawidget. Its main
purpose is to demonstrate how to use the C<Tkx::MegaConfig> baseclass.
Once the C<Tkx::LabEntry> module has been loaded, then its widgets
can be constructed in the normal way using the C<tkx_LabEntry> name.
Besides having a label (whose text can be accessed with the C<-label>
configuration option), these widgets behave exactly like an C<entry>
would.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Copyright 2005 ActiveState. All rights reserved.
=head1 SEE ALSO
The source code of Tkx::LabEntry.
L<Tkx::MegaConfig>, L<Tkx>
|