Discussion :

[PadawanInPerl]

Hello,

Je n'arrive pas à incorporer -after $var

Cela me génére une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
my $ObjImage = $onglet_controle-> Photo (-file=>"loupe.jpg");
$onglet_controle->Button(
  -image => $ObjImage,
  -command => [ \&subone, $onglet_controle, $entree_codebarre ],
  -foreground => '#CF0063',
  -background => 'white',
)->pack(qw/ -ipady 1 -ipadx 1 -pady 3/);

Toutes les autres façons fonctionnent : -ipady -ipadx -pady - anchor

mais pas avec les variables, pourriez-vous me dire la bonne façon d'ecrire cette variable ?

[djibril]

Que souhaites réellement faire ?

[PadawanInPerl]

Je voulais mettre mes 2 boutons centré et cote-a-cote...
c'est pour ça que je souhaité mettre -after $var

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

->pack(qw/ -ipady 1 -ipadx 1 -pady 3/, -after => $Button2 );

[PadawanInPerl]

erreur...Bad windows path name "...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my $ObjImage = $onglet_controle-> Photo (-file=>"loupe.jpg");
$onglet_controle->Button(
                        -image => $ObjImage,
                        -command => [ \&subone, $onglet_controle, $entree_codebarre ],
                        -foreground => '#CF0063',
                        -background => 'white',
                    )->pack(qw/ -ipady 1 -ipadx 1 -pady 3/);
 
 
 
# ===== BOUTON SUPPRIMER =====
 
my $ObjImage2 = $onglet_controle-> Photo (-file=>"supp.jpg");
 
$onglet_controle->Button(
                        -image    => $ObjImage2,
                        -command => [ \&subthree, $onglet_controle, $entree_codebarre ],
                        -foreground => '#CF0063',
                        -background => 'white',
                    )->pack(qw/ -ipady 1 -ipadx 1 -pady 3/, -after =>$ObjImage2);

[djibril]

euh tu te mélanges les pinceaux là.
$ObjImage2 n'est pas un Widget, mais l'objet contenant l'image.

Pour faire propre, quand tu crées ton bouton, écrit ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
my $Button1 = $onglet_controle->Button(
                        -image => $ObjImage,
                        -command => [ \&subone, $onglet_controle, $entree_codebarre ],
                        -foreground => '#CF0063',
                        -background => 'white',
                    );
 
$Button1->pack(qw/ -ipady 1 -ipadx 1 -pady 3/);

Cette façon d'écrire te permet de créer tous tes éléments de ton widget sans les afficher et ensuite, tu peux paramétrer proprement l'affichage de l'ensemble dans une autre partie de ton programme.
Pour ce qui est du -after, ce sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-after => $Button1

Mais si tu souhaites mettre ton deuxième bouton à coté du premier, utilise l'option

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-side => 'left'

de pack.

Avant de faire des gros programmes Tk, il est important de bien maitriser la gestion de placement. Pour ce faire dans la FAQ, j'ai mis un programme qui permet de jouer avec l'emplacement de 4 boutons. Copie toi ce programme et lance le. Puis essaye de jouer avec les options de pack pour voir le résultat.