=head1 NOM

Tk::callbacks - Spécifier le code que Tk doit appeler.

=head1 SYNOPSIS

On peut spécifier un callback de l'une des manières suivantes :

Sans arguments:

  ... => \&subname, ...
  ... => sub { ... }, ...
  ... => 'methodname', ...

ou avec des arguments :

  ... => [ \&subname ?, args ...? ], ...
  ... => [ sub { ... } ?, args...? ], ...
  ... => [ 'methodname' ?, args...?], ...

=head1 DESCRIPTION

Perl/Tk possède un callback, là où Tcl/Tk possède une ligne de commande (c'est
à dire un fragment de Tcl à exécuter). Un callback perl/Tk peut prendre l'une
des formes de base suivantes :

=over 4

=item *

Référence à une subroutine "\&subname"

=item *

Subroutine anonyme (fermeture) "sub { ... }" 

=item *

Un nom de méthode 'methodname'

=back

Ces diverses possibilités peuvent être accompagnées d'arguments en entourant
le tout de crochets (B<[]>). Voici quelques exemples :

I<$mw>-E<gt>B<bind>(I<$class,> B<"E<lt>DeleteE<gt>" =E<gt> 'Delete'>);

Ceci appellera I<$widget>->B<Delete>, [la référence à] I<$widget> étant
fournie (par bind) lorsque la touche Delete sera pressée.

Le fait que bind fournisse un objet widget est idéal dans beaucoup de
situations mais peut être irritant dans d'autres. Ce comportement peut être
modifié en utilisant la forme liste :

I<$a>-E<gt>B<bind>(B<"E<lt>DeleteE<gt>">,[I<$b> =E<gt> 'Delete']);

puisque le premier élément I<$b> est un objet, bind appelera I<$b>->B<Delete>.

Notez que l'ordre des méthodes/objets n'ayant de sens que pour les callbacks
"bind", l'"auto-quotation" dans perl5.001 rend la première des instructions
suivantes un peu plus lisible :

$w-E<gt>configure(-yscrollcommand => [ set => $ysb ]);

$w-E<gt>configure(-yscrollcommand => [ $ysb => 'set' ]);

mais toutes les deux appelleront $ysb-E<gt>set (arguments fournis par Tk)

Une autre utilisation des arguments vous permet d'écrire des méthodes
généralistes faciles à réutiliser :

$a-E<gt>bind("<Next>",['Next','Page']);

$a-E<gt>bind("<Down>",['Next','Line']);

Ceci appellera respectivement $a-E<gt>I<Next>('Page') ou
$a-E<gt>I<Next>('Line').

Notez que le contenu de "[]" est évalué par perl à la création du callback. On
désire souvent que les arguments fournis au callback dépendent du détail de
l'événement qui a provoqué son exécution. Pour répondre à cela les callbacks
peuvent être imbriquées en utilisant le "constructeur" "Ev(...)". "Ev(...)"
insère les objets callback dans la liste d'arguments du callback. Lorsque le
code de collage de perl/Tk prépare la liste d'arguments pour le callback qu'il
s'apprête à appeler, il s'intéresse à ces objets spéciaux et leur applique
récursivement le processus de callback.

=head1 EXEMPLES

  $entry->bind('<Return>' => [$w , 'validate', Ev(['get'])]);
  $toplevel->bind('all', '<Visibility>', [\&unobscure, Ev('s')]);
  $mw->bind($class, '<Down>', ['SetCursor', Ev('UpDownLine',1)]);

=head1 VOIR AUSSI

Tk::bind Tk::after Tk::options Tk::fileevent

=head1 MOTS-CLÉS

callback, closure, anonymous subroutine, bind

=head1 TRADUCTION

Jean-Pierre Vidal jeanpierre.vidal@free.fr

=head1 RELECTURE

Aucune relecture pour le moment.