Introduction à Perl/Tk

Lorsque l'on sélectionne des éléments du canevas avec la souris, celui-ci détermine si le curseur est ou non à l'intérieur de l'élément. L'option -closeenough contrôle la proximité que doit avoir la souris avec l'élément avant qu'elle soit considérée comme étant à l'intérieur de celui-ci. La valeur par défaut de -closeenough est « 1.0 », qui indique une proximité de un pixel. Cette option accepte n'importe quel nombre réel (qui sera toujours considéré en pixels).

Nous avons rapidement traité de l'option -scrollregion dans la section sur « La région de parcours », plus haut dans ce chapitre. Cette option prend une référence à une liste de quatre coordonnées qui décrivent une boîte de dimensionnement de la région de parcours du canevas et sont exprimées dans l'ordre [ minx, miny, maxx, maxy ]. On peut aussi considérer que ces coordonnées définissent, respectivement, les bords gauche, haut, droit et bas de celle-ci.

Normalement, le widget canevas limite l'utilisateur à ne voir que la région définie par l'option -scrollregion. On peut abolir cette limite en utilisant -confine => 0. La valeur par défaut de -confine est 1.

Les options -xscrollcommand et -yscrollcommand fonctionnent toutes les deux comme on l'a expliqué au chapitre 6, mais deux options supplémentaires agissent sur la façon dont le canevas fait défiler son contenu : -xscrollincrement et -yscrollincrement. Chacune d'elles prend pour valeur une distance d'écran qui sera l'unité utilisée par le canevas pour défiler dans la direction concernée. Avec -xscrollincrement => 10, par exemple, le contenu du canevas sera décalé, à chaque clic sur une flèche de la barre de défilement horizontale, d'une valeur multiple de 10. Pour résumer, le canevas décalera son contenu de 10 pixels dans la direction de la flèche.

Si la valeur associée à -xscrollincrement ou -yscrollincrement est inférieure ou égale à 0, le défilement utilise les pas de progression normaux.

Les options suivantes s'appliquent à tout le widget canevas, bien qu'elles n'affectent réellement que les éléments de texte du canevas : -insertbackground,-insertborderwidth, -insertofftime,-insertontime, -insertwidth, -selectbackground,-selectborderwidth, et -selectforeground. Ces options fonctionnent comme pour les zones de saisie et les widgets texte ; elles sont décrites en détail aux chapitres 5, Les widgets étiquette et de saisie, et 6, Barres de défilement.

Toutes les options suivantes sont utilisables avec la méthode Canvas :

-background => couleur

• Configure la couleur de fond du canevas.

-borderwidth => montant

• Modifie la largeur des bords du canevas.

-closeenough => montant

• Configure la distance à partir de laquelle on considère que le curseur est à l'intérieur d'un élément. montant est un nombre réel.

-confine => 1 | 0

• Si elle vaut 1 (valeur par défaut), cette option précise que le canevas se limitera lui-même à la région définie par -scrollregion.

-cursor => nom_curseur

• Indique que le curseur se modifiera en nom_curseur lorsqu'il sera au-dessus du canevas.

-height => montant

• Configure la hauteur du canevas.

-highlightbackground => couleur

• Configure la couleur qu'aura le rectangle de focus lorsque le canevas n'a pas le focus clavier.

-highlightcolor => couleur

• Configure la couleur qu'aura le rectangle de focus lorsque le canevas a le focus clavier.

-highlightthickness => montant

• Fixe l'épaisseur du rectangle de focus. Le montant par défaut est 2.

-insertbackground => couleur

• Configure la couleur de la zone située derrière le point d'insertion.

-insertborderwidth => montant

• Fixe la largeur des bords du point d'insertion.

-insertofftime => millisecondes

• Configure le délai pendant lequel le point d'insertion disparaît de l'écran lorsqu'il clignote.

-insertontime => millisecondes

• Configure le délai pendant lequel le point d'insertion apparaît à l'écran lorsqu'il clignote.

-insertwidth => montant

• Fixe la largeur du point d'insertion.

- relief=> 'flat' | 'groove' | 'raised' | 'ridge' | 'sunken' | 'solid'

• Précise l'aspect du contour du canevas. Le contour par défaut est 'flat'.

-scrollregion => [ gauche, haut, droit, bas ]

• Définit la zone que l'utilisateur pourra faire défiler.

-selectbackground => couleur

• Configure la couleur de la zone située derrière le texte sélectionné.

-selectborderwidth => montant

• Fixe la largeur du contour de la zone sélectionnée.

-selectforeground => couleur

• Configure la couleur du texte sélectionné.

-takefocus => 0 | 1 | undef

• Détermine si le canevas pourra obtenir le focus clavier. La valeur par défaut laisse l'application décider.

-width => montant

• Fixe la largeur du canevas.

-xscrollcommand => fct_rappel

• Indique la fonction de rappel à utiliser lorsque le canevas est parcouru horizontalement (lorsque la méthode Scrolled est utilisée, cette option est automatiquement initialisée avec la fonction de rappel correcte).

-xscrollincrement => montant

• Fixe la distance de déplacement du contenu du canevas lorsque l'utilisateur emploiera la flèche de la barre de défilement horizontale.

-yscrollcommand => fct_rappel

• Indique la fonction de rappel à utiliser lorsque le canevas est parcouru verticalement.

-yscrollincrement => montant

• Fixe la distance par laquelle le contenu du canevas se déplacera lorsque l'utilisateur emploiera la flèche de la barre de défilement verticale.

Pour créer un arc, il faut préciser un rectangle de dimensionnement à l'aide de deux paires de coordonnées x et y. L'arc est tracé dans les limites de ce rectangle. Des options supplémentaires permettent de modifier la façon dont celui-ci est tracé dans le canevas ; nous les décrirons brièvement. L'instruction createArc de base est la suivante :

$id = $canevas->createArc(x1,y1, x2,y2);

Les options supplémentaires sont précisées après les coordonnées :

$id = $canevas->createArc(x1,y1, x2,y2, option => valeur);

Chaque option d'un arc peut être utilisée plus tard par les méthodes itemcget et itemconfigure. Celles-ci sont :

-extent => degrés

• La longueur de l'arc est précisée en degrés à l'aide de cette option. Cette longueur vaut 90 degrés par défaut. L'arc est tracé dans le rectangle défini par (x1, y1) et (x2, y2), de son point de départ (voir l'option -start) et en sens inverse des aiguilles d'une montre. degrés doit être un nombre compris entre -360 et 360 ; sinon, la valeur utilisée sera celle indiquée modulo 360.
  Voici des exemples d'utilisation de l'option -extent :

# Trace la moitié d'un ovale 
$canevas->createArc(0,0, 100,150, -extent => 180); 
# Trace les 3/4 d'un ovale 
$canevas->createArc(0,0, 100,150, -extent => 270);

-fill => couleur

• Remplit l'arc avec couleur. Par défaut, un arc n'a pas de couleur de remplissage.

-outline => couleur

• Normalement, un arc est tracé avec un contour noir. Pour modifier cette couleur par défaut, on utilisera cette option. La couleur du contour est distincte de celle du remplissage ; pour avoir un objet uniforme, il suffit de choisir la même teinte pour -fill et -outline.

-outlinestipple => bitmap

• Pour utiliser cette option, il faut aussi définir -outline. Normalement, le contour d'un arc est tracé avec un trait plein ; on utilisera -outlinestipple pour utiliser un motif en bitmap afin de tracer le contour.

-start => degrés

• La valeur associée à cette option détermine l'endroit où Perl/Tk débutera le tracé de l'arc. La position de départ par défaut est à trois heures(26) et les degrés indiqués ici sont ajoutés à cette position, mais dans l'ordre inverse des aiguilles d'une montre. On utilisera -start => 90 pour démarrer le tracé de l'arc à douze heures, -start => 180 pour le démarrer à neuf heures, etc.

-stipple => bitmap

• Cette option permet de remplir l'arc avec un motif en bitmap, mais uniquement si l'option -fill a aussi été utilisée.

-style => 'pieslice' | 'chord' | 'arc'

• Le -style d'un arc détermine la façon dont il sera tracé. La valeur par défaut, "pieslice" (NDT Littéralement, "part de gâteau" en français), trace l'arc et deux lignes partant du centre de celui-ci et se terminant aux extrémités du segment. La valeur "chord" trace l'arc et une ligne reliant les deux extrémités de son segment. La valeur "arc" ne trace que l'arc, sans ligne. Les options -fill et -stipple sont ignorées si cette dernière valeur est utilisée.

-tags => liste_marqueurs

• Cette option permet d'assigner des marqueurs à un arc au moment de sa création. La valeur associée à -tags est une liste anonyme de marqueurs ; par exemple :

$canevas->createArc(0,0, 10,140,-tags => ["arc", "grand"]);

• Si l'on n'indique qu'un seul marqueur, une liste n'est pas nécessaire :

$canevas->createArc(0,0, 10,140,-tags => "arc");

-width => montant

• Précise la largeur du contour. La valeur par défaut est 1.

Un widget canevas peut afficher un bitmap à la place du texte, tout comme les boutons et les étiquettes. On utilise createBitmap pour insérer un bitmap :

$id = $canevas->createBitmap(x,y);

Il faut, bien sûr, utiliser l'option -bitmap pour préciser le bitmap à afficher ou vous ne verrez rien. On crée donc vraiment un bitmap ainsi :

$id = $canevas->createBitmap(x,y, -bitmap => bitmap);

J'ignore la raison pour laquelle le bitmap n'est pas simplement le troisième paramètre : c'est comme ça. Les autres options de createBitmap sont :

-anchor => "center" | "n" | "e" | "s" | "w" | "ne" | "nw" | "se" | "sw"

• L'option -anchor précise comment sera placé le bitmap dans le canevas, relativement aux coordonnées x et y indiquées. La valeur par défaut est "center", qui place le centre de l'image à ces coordonnées. L'utilisation d'un point cardinal unique ("e", par exemple) placerait le centre de ce bord aux coordonnées x et y.

-background => couleur

• Cette option précise la couleur à utiliser pour tous les pixels à 0 (zéro) du bitmap. Si l'on ne précise pas cette option, ou si sa valeur est une chaîne vide, les pixels à 0 seront transparents. Ce sont ces pixels qui forment le fond d'un bitmap.

-bitmap => nom_bitmap

• Il faut utiliser cette option pour indiquer au canevas quel bitmap afficher. On peut utiliser les bitmaps internes, comme 'info' ou 'warning', comme pour le widget bouton, ou indiquer un nom de fichier. N'oubliez pas qu'il faut mettre un signe @ devant le nom du fichier bitmap.

-foreground => couleur

• La couleur du premier plan d'un bitmap est l'opposée de celle de son fond (par définition, les bitmaps n'ont que deux couleurs). Cette option colorie tous les pixels à 1 en couleur. La valeur par défaut est noir.

-tags => liste_marqueurs

• Cette option assigne des marqueurs à un bitmap lors de sa création. La valeur associée à -tags est une liste anonyme de marqueurs ; par exemple :

$canevas->createBitmap(0,0, -bitmap => 'info', -tags => ["info", "bitmap"]);

• Si vous n'indiquez qu'un seul marqueur, une liste n'est pas nécessaire :

$canevas->createBitmap(0,0, -bitmap => 'info', -tags => "bitmap");

S'il est possible de créer un bitmap dans un canevas, il est normal que l'on puisse aussi créer une image. Pour ce faire, on utilise la méthode createImage :

$id = $canevas->createImage(x,y, -image => nom_image);

Ici encore, vous devez indiquer l'image à afficher ou vous ne verrez rien. Les autres options de createImage sont :

-anchor => "center" | "n" | "e" | "s" | "w" | "ne" | "nw" | "se" | "sw"

• Cette option fonctionne avec une image exactement comme avec un bitmap. Elle précise la façon dont sera positionnée l'image par rapport aux coordonnées x et y. Sa valeur par défaut est "center".

-image => nom_image

• L'option -image indique quelle image afficher. Sa valeur est, en fait, une référence à une image créée par la méthode Photo ou Bitmap (le chapitre 3 donne plus d'informations sur la façon d'indiquer un fichier image).

-tags => liste_marqueurs

• On utilise cette option pour assigner des marqueurs à une image. La valeur associée à -tags est une liste anonyme ; par exemple :

$canevas->createImage(0,0, -image => $ptr_image, 
                           -tags => ["image", "bleu"]);

• Une liste est inutile si l'on ne donne qu'un seul marqueur :

$canevas->createImage(0,0, -image => $ptr_image, 
                           -tags => "image");

La méthode createLine permet, en réalité, de créer plusieurs lignes reliées entre elles, pas seulement une ligne unique. Les deux premières paires de coordonnées que vous indiquez créent la première ligne, et toute paire supplémentaire continuera la ligne (brisée) jusqu'à ce point.

$id = $canevas->createLine(0,0, 400,400); # Crée une seule ligne 
$id = $canevas->createLine(0,0, 400,400, -50,240); # deux lignes

On peut utiliser des options à la suite des coordonnées afin de configurer la ou les lignes ; ces options et leurs valeurs possibles sont les suivantes :

-arrow => "none" | "first" | "last" | "both"

• Cette option permet de placer des flèches aux extrémités de la ligne. Si la méthode createLine crée plusieurs lignes, seuls le premier et/ou le dernier point peuvent devenir des flèches. Pour que chaque ligne soit traitée, il faut utiliser plusieurs instructions createLine.

-arrowshape => [ dist1, dist2, dist3 ]

• L'option -arrowshape ne s'applique que si -arrow est également utilisée. La figure 9.3 montre la signification des trois distances.

On indique les trois distances à l'aide d'une liste anonyme comme dans l'exemple qui suit :

$canevas->createLine(
    10, 10, 200, -40,
    -arrow      => "both",
    -arrowshape => [ 20, 20, 20 ]
);

-capstyle => "butt" | "projecting" | "round"

• Cette option permet de spécifier autre chose que des flèches pour les extrémités d'une ligne.

-fill => couleur

• L'option -fill porte mal son nom, car elle ne remplit rien ; la ligne est simplement tracée d'une autre couleur que le noir par défaut.

-joinstyle => "bevel" | "miter" | "round"

• Cette option précise comment plusieurs lignes seront jointes. La valeur par défaut est "miter". Si l'on ne crée qu'une seule ligne, -joinstyle est sans effet.

-smooth => 1 | 0

• Si cette option vaut 1, la ligne sera tracée comme une courbe de Bézier. Les deux premières lignes formeront la première spline, les deux suivantes, la seconde spline, etc. Pour créer une ligne droite, il suffit de répéter les points terminaux de la ligne droite désirée (ou de réutiliser createLine pour créer une autre ligne).

-splinesteps => nombre

• Lorsque l'on utilise -smooth, plus -splinesteps est élevée, plus la courbe sera douce. Pour connaître le nombre d'étapes nécessaires à l'obtention de l'effet voulu, il faut essayer plusieurs valeurs.

-stipple => bitmap

• Cette option permet de tracer la ligne en utilisant un motif bitmap (les 1 seront colorés, les 0 seront transparents). bitmap peut être un nom de bitmap intégré ou un nom de fichier. Plus la ligne est large (cf. l'option -width), plus le motif ressortira.

-tags => liste_marqueurs

• Permet d'affecter des marqueurs à une ou plusieurs lignes au moment de leur création. La valeur associée à -tags est une liste anonyme ; par exemple :

$canevas->createLine(0,0, 100,100, -tags => ["ligne", "bleu"]);

• Si l'on n'indique qu'un seul marqueur, une liste n'est pas nécessaire :

$canevas->createLine(0,0, 100,100, -tags => "ligne");

-width => montant

• On peut élargir la ligne à l'aide de cette option. Normalement, une ligne ne fait qu'un pixel de large. montant est exprimable dans n'importe quelle distance d'écran (centimètres, pouces, etc.).

S'il est tracé correctement, un ovale est un cercle. Pour créer un cercle/ovale, on utilise la méthode createOval et l'on indique deux paires de coordonnées définissant un rectangle (ou un carré) dans lequel sera tracé le cercle/ovale. Voici un bref exemple :

$id = $canevas->createOval(0,0, 50,50); # Crée un cercle 
$id = $canevas->createOval(0,0, 50,100); # Crée un ovale

Les options d'un ovale sont classiques, je me contenterai donc de brèves descriptions :

-fill => couleur

• L'ovale sera rempli avec la couleur indiquée. Cette couleur est différente de celle du contour. Par défaut, un ovale n'est pas coloré.

-outline => couleur

• Le contour est la ligne délimitant le cercle. Par défaut, sa couleur est noire, mais on peut la modifier à l'aide de cette option. Si vous utilisez la même couleur pour le contour et pour le remplissage, l'ovale apparaîtra comme une surface pleine.

-stipple => bitmap

• Cette option permet de remplir l'ovale avec un motif bitmap (les bits à 1 seront colorés, les bits à 0 seront transparents) : elle est sans effet si l'option -fill n'est pas aussi utilisée. bitmap peut être un bitmap intégré ou un nom de fichier.

-tags => liste_marqueurs

• Permet d'affecter des marqueurs à un ovale au moment de sa création. La valeur associée à -tags est une liste anonyme ; par exemple :

$canevas->createOval(0,0, 100,100, -tags => ["ovale", "bleu"]);

• Si l'on n'indique qu'un seul marqueur, une liste n'est pas nécessaire :

$canevas->createOval(0,0, 100,100, -tags => "ovale");

-width => montant

• On peut élargir la ligne de contour d'un ovale à l'aide de cette option. Normalement, ce contour n'occupe qu'un pixel de large.

Un polygone est ni plus ni moins un ensemble de lignes avec le premier point automatiquement relié au dernier pour former une figure fermée. La méthode createPolygon nécessite au moins trois paires de coordonnées x, y. Le code suivant, par exemple, crée un triangle :

$id = $canevas->createPolygon(1000,1000, 850,950, 30,40);

On peut ajouter des paires x, y supplémentaires :

$id = $canevas->createPolygon(1000,1000, 850,950, 30,40, 500,500);

Les options de createPolygon sont les mêmes que celles de createLine : -fill, -outline, -smooth, -splinesteps, -stipple, -tags, et -width. N'oubliez pas que createPolygon relie le premier point au dernier afin de fermer la figure.

Comme si createLine ou createPolygon ne suffisaient pas pour créer un rectangle, la méthode createRectangle existe aussi. Celle-ci ne prend que deux paires de coordonnées, représentant les coins opposés de la surface rectangulaire :

$id = $canevas->createRectangle(10,10, 50,150);

Ici encore, les options possibles, -fill, -outline, -stipple, -tags, et -width, ont déjà été vues avec les autres méthodes de création. Voici néanmoins quelques exemples :

# Un rectangle bleu avec un contour noir : 
$canevas->createRectangle(10,10, 50,150, -fill => 'blue'); 
# Un rectangle bleu avec un contour plus épais : 
$canevas->createRectangle(10,10, 50,150, -fill => 'blue', -width => 10);

Enfin ! Un type d'élément ne contenant pas de tracé ! On peut ajouter du texte dans un widget canevas à l'aide de la méthode createText. Celle-ci nécessite une paire de coordonnées x, y qui indique où placer le texte dans le canevas, ainsi que le texte à afficher :

$id = $canevas->createText(0,0, -text => "origine");

En fait, l'option -text est facultative, mais, si vous ne l'utilisez pas, vous ne verrez rien à l'écran. Comme cela n'a aucun intérêt, nous supposerons que vous préciserez toujours cette option avec le texte à afficher. Les autres options de createText sont :

-anchor => "center" | "n" | "e" | "s" | "w" | "ne" | "nw" | "se" | "sw"

• Cette option détermine l'emplacement du texte par rapport aux coordonnées x et y. Le comportement par défaut consiste à centrer le texte sur ce point, quelle que soit la taille du texte.

-fill => couleur

• Normalement, le texte est écrit en noir ; on peut modifier cela à l'aide de cette option qui porte mal son nom lorsqu'il s'agit de texte (habituellement, les widgets utilisent -foreground pour modifier la couleur du texte). Avec l'option -fill => 'blue', par exemple, le texte apparaîtra en bleu.

-font => nom_fonte

• Modifie la fonte utilisée pour afficher le texte.

-justify => "left" | "right" | "center"

• Si le texte affiché comporte plusieurs lignes, cette option permet de contrôler son alignement. Par défaut, le texte sera aligné à gauche.

-stipple => bitmap

• Cette option est un peu bizarre, mais elle existe bien… Si l'on indique un nom de bitmap (ou de fichier), le texte sera écrit en utilisant le motif du bitmap. Cela rendra souvent le texte illisible donc ne l'utilisez pas, sauf avec de grandes fontes.

-tags => liste_marqueurs

• liste_marqueurs est une liste anonyme de marqueurs ou un simple marqueur, qui seront affectés au texte.

-text => chaîne

• Cette option est nécessaire ; la chaîne indiquée est affichée dans le canevas, aux coordonnées x et y.

-width => montant

• Il s'agit encore d'une option mal nommée, car elle ne modifie pas la largeur des caractères du texte, mais détermine la longueur maximale d'une ligne de texte. Si le texte dépasse cette limite, la ligne sera automatiquement coupée pour former une seconde ligne. Par défaut, montant vaut 0, ce qui ne coupera les lignes qu'en présence d'un caractère de fin de ligne. Les lignes sont toujours coupées sur des espaces, donc aucun mot ne sera coupé en son milieu.

Les méthodes concernant les éléments texte demandent parfois une valeur d'indice. Les indices des widgets texte ont été traités au chapitre 8 et les indices d'un élément texte d'un canevas leur ressemblent. Chaque élément est toutefois considéré ici comme une ligne unique (même si elle contient des caractères \n). Les valeurs d'indices possibles sont les suivantes :

n

• n est une valeur numérique : 0 ou 12, par exemple. Le premier caractère a l'indice 0, le second a l'indice 1, etc.

"end"

• Désigne l'emplacement placé immédiatement après le dernier caractère. Cet indice est souvent utilisé avec la méthode insert pour ajouter du texte à la fin d'une chaîne.

"insert"

• Désigne le caractère placé immédiatement avant le point d'insertion.

"sel.first"

• Le premier caractère du texte sélectionné. Ne peut être utilisé que si une sélection est active.

"sel.last"

• Le dernier caractère du texte sélectionné. Ne peut être utilisé que si une sélection est active.

"@x, y"

• Désigne le caractère le plus près du point de coordonnées x, y du canevas (ce ne sont pas des coordonnées écran).

La méthode dchars permet de supprimer des caractères d'un élément texte :

$canevas->dchars(marqueur/id, premier [, dernier ] )

On indique un marqueur ou un identificateur pour désigner le ou les éléments de texte, et l'indice où commencer la suppression. Si dernier n'est pas utilisé, seul le caractère situé à l'indice premier sera supprimé. Le reste de la chaîne ne sera pas affecté.

On peut placer explicitement le point d'insertion à l'aide de la méthode icursor :

$canevas->icursor(marqueur/id, indice)

Le curseur n'apparaîtra que si l'élément concerné a le focus clavier, mais on peut quand même configurer la position du point s'il ne l'a pas.

On peut retrouver un indice en fonction d'un autre, à l'aide de la méthode index. Voici un exemple qui clarifiera son utilisation :

$indice = $canevas->index("element", "sel.first");

Cette instruction renverra l'indice numérique associé au premier caractère sélectionné de l'élément texte. Si plus d'un élément correspond au marqueur ou à l'identificateur indiqué (ici, il s'agit d'un marqueur nommé "element"), le premier rencontré sera utilisé.

La méthode insert permet d'ajouter du texte à un élément texte :

$canevas->insert(marqueur/id, indice, chaîne)

La méthode selectClear annule la sélection (toute sélection, en fait, car cette méthode n'utilise ni marqueur ni identificateur) :

$canevas->selectClear();

Les méthodes selectFrom et selectTo, quant à elles, permettent de sélectionner une portion de texte. Les deux lignes suivantes sélectionnent le texte du début à la fin du premier élément correspondant au marqueur « marqueur_texte » :

$canevas->selectFrom("marqueur_texte", 0); 
$canevas->selectTo("marqueur_texte", "end");

La méthode selectAdjust permet d'ajuster la sélection :

$canevas->selectAdjust(marqueur/id, indice)

Pour obtenir l'identificateur de l'élément sélectionné, on utilisera la méthode selectItem :

$id = $canevas->selectItem()

Un canevas peut contenir n'importe quel type de widget : bouton, case à cocher, widget texte, ou même un autre canevas (au cas où vous seriez un peu fou).

Pour cela, on utilise la méthode createWindow, qui nécessite que le widget à placer dans le canevas soit d'abord créé. Voici un exemple :

$bouton = $canevas->Button(
    -text    => "Bouton",
    -command => sub {
        print "Un bouton dans le canevas\n";
    }
);
$id = $canevas->createWindow( 0, 0, -window => $bouton );

Certains points méritent d'être notés dans cet exemple (qui est assez classique, si ce n'est la fonction inutile associée au bouton) :

• le bouton est un fils du widget canevas. Il pourrait descendre d'un ancêtre de celui-ci (être un fils de la fenêtre principale si celle-ci est le parent du canevas). Cependant, il ne doit pas être le fils d'un autre widget de premier niveau n'ayant aucun rapport avec le canevas ;
• en réalité, la méthode createWindow ne crée pas le widget : elle ne fait que le placer dans le canevas. Le bouton y est positionné aux coordonnées indiquées et ne doit pas être placé à l'écran avec les méthodes pack, grid, ou place ;
• vous devez créer le widget avant d'appeler createWindow ;
• si l'on clique sur le bouton, cela invoquera la fonction de rappel qui lui est associée, comme avec tout bouton ;
• lorsque l'on crée le widget, on peut utiliser n'importe laquelle de ses options pour le configurer. On peut aussi utiliser sa référence ($bouton, par exemple), pour le configurer plus tard.
  Les options suivantes de createWindow ressemblent plus à celles utilisées avec pack
  qu'à des options de widget :

-anchor => "center" | "n" | "e" | "s" | "w" | "ne" | "nw" | "se" | "sw"

• Le widget sera placé aux coordonnées x, y selon la valeur d'ancrage indiquée par cette option. Par défaut, celle-ci vaut "center", ce qui signifie que le centre du widget sera placé en x, y.

-height => montant

• Fixe la taille du widget. Sans cette option, celui-ci gardera la taille qu'il avait au moment de sa création (habituellement, il s'agit de la taille naturelle du widget).

-tags => liste_marqueurs

• liste_marqueurs associe un ou plusieurs marqueurs au widget. Il peut s'agir d'un nom unique, ou d'une liste anonyme de marqueurs.

-width => montant

• Fixe la largeur du widget. Sans elle, celui-ci conservera la largeur obtenue au moment de sa création (la taille naturelle du widget).

-window => $widget

• Cette option est obligatoire : sans elle, aucun widget ne sera placé dans le canevas. $widget est une référence à un élément widget que l'on peut avoir créé au préalable, ou au moment de l'appel à createWindow, comme dans l'exemple ci-dessous :

$canevas->createWindow(
    0, 0,
    -window => $canevas->Button(
        -text => "Bouton",
    )
);

La création du widget au moment de l'appel à createWindow n'a de sens que si l'on n'a pas l'intention d'y faire référence par la suite.

Chaque élément d'un canevas peut être lié à une séquence d'événements afin qu'une fonction de rappel soit invoquée lorsque cette séquence arrive. Cette association ressemble à l'ajout d'une liaison à une séquence d'événements pour les widgets, mais on y utilise des marqueurs ou des identificateurs d'éléments. N'oubliez pas que, pour ajouter une liaison normale au canevas lui-même, il faut utiliser Tk::bind (ou canvasBind, si l'on utilise Tk8.0) à la place de bind.

La forme générale de cet appel est :

$canevas->bind(marqueur/id [ , séquence, commande ] );

séquence sera quelque chose comme "<Button-1>" ou "<Double-1>". Le chapitre 14, Liaisons d'événements, donne une définition et une explication complètes des séquences d'événements.

Lorsque l'on crée des liaisons d'éléments, on doit se rappeler que seules les liaisons souris et clavier sont reconnues. On ne peut pas se permettre toutes les liaisons ésotériques possibles pour les widgets.

Voici un exemple modifiant la couleur de n'importe quel élément ayant le marqueur "bleu" lorsque la souris est au-dessus de lui :

# Lorsque la souris est au-dessus de l'élément, on le colorie en bleu
$c->bind( "bleu", "<Enter>", sub { $c->itemconfigure( "bleu", -fill => "blue" ); } );

# Lorsque la souris est ailleurs, on le colorie en noir
$c->bind( "bleu", "<Leave>", sub { $c->itemconfigure( "bleu", -fill => "black" ); } );

La méthode find permet de connaître les éléments associés à un marqueur donné. Les différentes façons d'appeler find sont les mêmes que pour addtag (exception faite du paramètre "nouveau"). Voici quelques formes d'appels classiques (la section consacrée aux marqueurs, plus haut dans ce chapitre, détaille leur fonctionnement) :

$canevas->find("above", marqueur/id);
$canevas->find("all");
$canevas->find("below", marqueur/id);
$canevas->find("closest", x, y [ , zone_supplémentaire ] 
                               [ , marqueur/id ] ) ; 
$canevas->find("enclosed", x1, y1, x2, y2);
$canevas->find("overlapping", x1, y1, x2, y2);
$canevas->find("withtag", marqueur/id);

Pour obtenir la liste de tous les marqueurs associés à un élément, on utilise l'instruction suivante :

@liste = $canevas->gettags(marqueur/id);

Si marqueur/id correspond à plusieurs éléments, le premier trouvé sera utilisé. Si la recherche échoue, la méthode renverra une chaîne vide.

On peut parcourir un widget canevas dans les deux directions : les méthodes xview et yview servent à communiquer avec les barres de défilement. Le chapitre 6 donne plus d'informations sur le fonctionnement de ces deux méthodes.