我一直在使用Perl Tkx开发GUI,并发现可以使用两个单独的函数来创建按钮. (按钮和ttk__按钮).
到目前为止,我发现的唯一区别是按钮功能似乎居中对齐文本,而ttk__button函数似乎左对齐文本.
使用按钮的示例：
#!/usr/bin/perl
use strict;
use warnings;
use Tkx;
my $text = "Hello\nworld!\n\nThis 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 = "Hello\nworld!\n\nThis 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经验丰富的人的回答.
注意：
Tkx :: ttk__style_configure(‘TButton’,– justify =>’center’);
解决方法
按钮就是“传统”小部件之一. ttk系列小部件更加现代,旨在关注主机操作系统的显示配置.如果您希望自己的应用与用户选择的“主题”融为一体,请使用ttk小部件.另一方面,如果你想做很多工作来适应,或者希望你的应用程序像拇指一样伸出,那么一定要使用“传统”小部件.
可以通过-style选项更好地控制ttk小部件.您可能需要查看教程页面@ http://www.tkdocs.com/tutorial/styles.html.
对于它的价值,按钮不经常包含多行文本.还有其他小部件在设计时考虑了文本布局.
编辑：
来自tjwrona1992的评论：Tkx :: ttk__style_configure(‘TButton’,– justify =>’center’);