use strict;
use Tkx;
Tkx::package_require("tile");
Tkx::package_require("style");

my $mw = Tkx::widget->new(".");
my $text = "abc";
my $entry = $mw->new_ttk__entry(-width => 20, -textvariable => \$text);
$entry->configure(-font => "helvetica 14 bold");
$entry->g_grid(-column => 0, -row => 0, -sticky => 'w');
$entry->configure(-validate => 'all', -validatecommand => \&Entry);

Tkx::MainLoop();

sub Entry
{
    ### Tkx::update();
    print "text = '$text'\n";
    return 1;
}