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 module implements a trivial megawidget. Its main purpose is to demonstrate how to use the baseclass.

Once the module has been loaded, then its widgets can be constructed in the normal way using the name. Besides having a label (whose text can be accessed with the configuration option), these widgets behave exactly like an 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.