How to wrap text in a balloon in Perl / Tk

Question

How can I wrap text displayed in a balloon in Perl / Tk?

my code is like this

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

But this help text in a balloon goes beyond the screen. Is there a way to wrap the text displayed on the balloon?

Answer 1

The Label widget inside the balloon is advertised as a “message” sub-widget and can be accessed directly using:

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

Here you can apply all the Tk::Label configure options, for example, the -wraplength :

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