Как обернуть текст в воздушном шаре в 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);