NAME¶
Tkx::LabEntry - Labeled entry widget
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();
DESCRIPTION¶
The "Tkx::LabEntry" module implements a trivial megawidget. Its main
purpose is to demonstrate how to use the "Tkx::MegaConfig"
baseclass.
Once the "Tkx::LabEntry" module has been loaded, then its widgets can
be constructed in the normal way using the "tkx_LabEntry" name.
Besides having a label (whose text can be accessed with the "-label"
configuration option), these widgets behave exactly like an "entry"
would.
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.
SEE ALSO¶
The source code of Tkx::LabEntry.
Tkx::MegaConfig, Tkx