#http://habrahabr.ru/blogs/perl/65774/

use Tkx;

my $mw = Tkx::widget->new('.'); #Main Window

#buttons
my @btns = (
	$mw->new_ttk__button(-text=>'button 1'),
	$mw->new_ttk__button(-text=>'button 2'),
	$mw->new_ttk__button(-text=>'button 3')
);

#Place elements (buttons) in table grid
#column x row coordinates
$btns[0]->g_grid(-row=>0, -column=>0);
$btns[1]->g_grid(-row=>0, -column=>1);
$btns[2]->g_grid(-row=>1, -column=>1);

#Event Loop
Tkx::MainLoop();

##</code><code>##

use Tkx;

##</code><code>##

Tkx::package_require('ttk');

##</code><code>##

use Tkx;

my $mw = Tkx::widget->new('.'); #Main Window

#buttons
#used to be:
#$mw->new_ttk__button(-text=>'button 1')
#now:
#$mw->     new_button(-text=>'button 1')
my @btns = (
	$mw->new_button(-text=>'button 1'),
	$mw->new_button(-text=>'button 2'),
	$mw->new_button(-text=>'button 3')
);

#Place elements (buttons) in table grid
#column x row coordinates
$btns[0]->g_grid(-row=>0, -column=>0);
$btns[1]->g_grid(-row=>0, -column=>1);
$btns[2]->g_grid(-row=>1, -column=>1);

#Event Loop
Tkx::MainLoop();