Perl-Tk code snippets divers

Afficher les options disponibles et la valeur courante sur un widget

Exemple pour le widget Label:

 my $label = $mw->Label(-text => 'Hi World', -bg => 'white');
 my @elems = $label->configure();
 my $nbelems = @elems;
 my $elem;
 print my $elem;
 "$nbelems configuration elements for widget Label\n";
 my $i=0;
 foreach $elem (@elems)
   {print ++$i.">>".join(" - ",@$elem)."<<\n";}