如何获取要在Tkx标签中使用的字符串的“宽度”

您需要以一致的单位(即像素)工作并缩短文本直到它适合 – 最好有一个良好的初始猜测,以保持您的代码快速.您可以通过winfo reqwidth获取标签宽度(以像素为单位),使用字体测量获得以像素为单位的文本宽度(对于特定字体).

use strict;
use warnings;
use Tkx;
Tkx::package_require('tile');

my $text;
my $mw    = Tkx::widget->new('.');
my $label = $mw->new_ttk__label(-width => 10,-textvariable => $text);

Tkx::pack($label,-side => 'left');

$text = limit_text($label,'abcdefghijklmnopqrstuvwxyz');

Tkx::MainLoop;

sub limit_text {
    my $label       = shift;
    my $text        = shift;
    my $font        = $label->cget('-font') || 'TkDefaultFont';
    my $label_width = $label->g_winfo_reqwidth;
    my $text_width  = Tkx::font_measure($font,$text);
    my $i           = int length($text) * ($label_width / $text_width);

    while ($text_width > $label_width) {
        $text       = substr($text,--$i) . '...';
        $text_width = Tkx::font_measure($font,$text);
    }
    return $text;
}