Perl Tkx,“button”和“ttk__button”有什么区别？

到目前为止,我发现的唯一区别是按钮功能似乎居中对齐文本,而ttk__button函数似乎左对齐文本.

使用按钮的示例：

#!/usr/bin/perl

use strict;
use warnings;

use Tkx;

my $text = "Hellonworld!nnThis is some text...";
my $mw = Tkx::widget->new(".");

my $b = $mw->new_button(
    -text => $text,-command => sub { exit; },);
$b->g_grid;

Tkx::MainLoop()

此脚本将使文本居中：

使用ttk__button的示例：

#!/usr/bin/perl

use strict;
use warnings;

use Tkx;

my $text = "Hellonworld!nnThis is some text...";
my $mw = Tkx::widget->new(".");

my $b = $mw->new_ttk__button(
    -text => $text,);
$b->g_grid;

Tkx::MainLoop()

这个脚本将证明文本是正确的：

我想知道这两个函数之间有什么其他差异,以及是否有任何特殊原因有两个单独的函数创建按钮.其中一个通常比另一个更好用吗？

还有什么方法可以使用ttk__button函数对文本进行居中对齐？

编辑：

我添加了“Tcl”标签,因为Perl Tkx基本上是由Tcl构建的.我对Perl很不错,但对于Tcl来说,我有点新手.

虽然乍一看似乎不是这样,但实际上这更像是一个Tcl问题,而不是Perl问题,所以我很乐意听到Tcl经验丰富的人的回答.

注意：

要将文本置于ttk__按钮中心,请在代码中添加以下行：

Tkx :: ttk__style_configure(‘TButton’,– justify =>’center’);