perl - 如何在Perl/Tk中将文字换成气球

如何在Perl/Tk中将显示的文本包装在气球中？

我的代码是这样的

my $balloon1 = $mw->Balloon();
my $txt = "file Name: ".$fileName."\n"."location: ".$path;
$balloon1->attach($button, -balloonmsg=>$txt);

但是气球中的此帮助文本超出了屏幕范围。有没有办法将显示在气球中的文本换行？

最佳答案

Balloon内部的Label小部件被广告为“message”子小部件，可以使用以下方法直接访问:

my $balloon1_label = $balloon1->Subwidget('message');

您可以在此处应用所有Tk::Label配置选项，例如-wraplength选项:

$balloon1_label->configure(-wraplength => 100);