#!/usr/bin/perl --
use strict; use warnings;
use Tkx;
local  $Tkx::TRACE=64;

my $the_shining = "Here's Johnny! 0";
my $mw = Tkx::widget->new(".");

my $b = $mw->new_ttk__button(
    -text => 'Hello, world',
    -command => sub {
        $the_shining =~ s/(\d+)/$1+1/e;
        return;
    },
);

$b->g_pack;

my $e = $mw->new_ttk__entry(
    -width => 9,
    -textvariable => \$the_shining,
);

$e->g_pack(
    -expand => 1,
    -fill => 'both',
);

Tkx::MainLoop();

__END__