#!perl

use strict;
use warnings;
use utf8;
use Tkx;

my $mw = Tkx::widget->new(".");

my $bar = $mw->new_ttk__progressbar(-orient => 'horizontal', -length => 200, -mode => 'determinate', -maximum => 150,);
$bar->g_pack;

my $btn = $mw->new_ttk__button(-text => 'inc', -command => sub{ $bar->step(10.0); return 1; });
$btn->g_pack;

Tkx::MainLoop();