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

我的代码是这样的

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

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

最佳答案 Balloon中的Label小部件被公布为“消息”子小部件,可以使用以下方式直接访问：

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

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

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