perl - 如何在 Perl/Tk 中将文本包装在气球中

Question

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

我的代码是这样的

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

但是气球中的这个帮助文本超出了屏幕边界。有没有办法包装在气球中显示的文本？

Answer 1

气球内的标签小部件被宣传为“消息”子小部件，可以使用以下方法直接访问：

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

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

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