Comment faire pour envelopper le texte dans le ballon en Perl/Tk

Question

Comment est-ce que je peux envelopper le texte affiché dans un ballon en Perl/Tk?

mon code est quelque chose comme ça

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

Mais ce texte d'aide en ballon sort des limites de l'écran. Est-il possible d'envelopper le texte affiché dans un ballon?

Answer 1

Le widget étiquette à l'intérieur du ballon est annoncé comme subwidget « message » et est accessible directement à l'aide:

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

Vous pouvez appliquer toutes Tk::Label options de configuration ici, par exemple l'option -wraplength:

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