insertion d' -after ou before

**PadawanInPerl** · 03/12/2010, 11h36

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** · 03/12/2010, 12h34

Que souhaites réellement faire ?

**PadawanInPerl** · 03/12/2010, 12h40

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

**djibril** · 03/12/2010, 12h46

Code :

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

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

**PadawanInPerl** · 03/12/2010, 13h02

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** · 03/12/2010, 13h08

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.

**PadawanInPerl** · 03/12/2010, 14h32

Malheureusement même avec tes conseils, je n'y arrive pas...

enfin, des progrès sont là qd mm !

$entree_codebarre (mon champs de saisie) et mes 2 boutons sont bien cote à cote...

mais je n'arrive pas à centrer le tout et à le placer un peu plus vers le "Code barre : "

actuellement j'ai :

code-barre : (centré)

et trop plus bas...et à gauche le champs de saisie et mes 2 boutons.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
# ===== ONGLET CONTROLE =====
 
$onglet_controle->Label(
                         -text => "\nCONTRÔLE\n\n",
                         -font => '{Comic Sans MS} 11 {bold}',
                         -background => 'white',
                         -foreground => '#CF0063',
                       )->pack();
 
$onglet_controle->Label(
                         -text => "Entrer le code-barre du document :",
                         -font => '{Comic Sans MS} 11',
                         -background => 'white',
                         -foreground => '#CF0063',
                       )->pack();
 
$onglet_controle->Label( -background => 'white',)->pack();
 
my $cb=$onglet_controle->Label(
                         -text => ' Code-barre : ',
                         -font => '{Comic Sans MS} 9',
                         -background => 'white',
                         -foreground => '#CF0063',
                         );
 
$cb->pack(qw/ -side top/);
 
my $entree_codebarre = $onglet_controle->Entry()->pack(qw/ -side left/);
 
 
 
# ===== BOUTON CONTROLE =====
 
my $ObjImage = $onglet_controle-> Photo (-file=>"loupe.jpg");
my $bouton_controle = $onglet_controle->Button(
                        -image => $ObjImage,
                        -command => [ \&subone, $onglet_controle, $entree_codebarre ],
                        -foreground => '#CF0063',
                        -background => 'white',
                        );
 
$bouton_controle->pack(qw/ -ipady 1 -ipadx 1 -padx 4/,-side =>'left');
 
 
 
# ===== BOUTON SUPPRIMER =====
 
my $ObjImage2 = $onglet_controle-> Photo (-file=>"supp.jpg");
 
my $bouton_supprimer=$onglet_controle->Button(
                        -image    => $ObjImage2,
                        -command => [ \&subthree, $onglet_controle, $entree_codebarre ],
                        -foreground => '#CF0063',
                        -background => 'white',
                        );
 
$bouton_supprimer->pack(qw/ -ipady 1 -ipadx 1 -padx 2/,-side =>'left');

Voilà si t'arrive encore à m'aiguiller...

**djibril** · 03/12/2010, 14h39

Une façon de faire et de créer un cadre dans ton onglet qui lui sera au mileu de l'onglet. Et à l'intérieur du cadre, tu y mets tes boutons et champs de saisies.

C'est un peu le même style de bricolage en page web avec les div si tu as déjà conçu des sites web.

**djibril** · 03/12/2010, 14h42

Si tu peux, remets moi ton code en entier et je te les place comme tu veux. Sinon, étant donné que c'est difficile d'expliquer les placements, une bonne idées est de faire des captures d'écran et de nous les mettre sur le forum. On visualise plus facilement ce qui ne va pas.

**PadawanInPerl** · 03/12/2010, 14h58

par MP

MERCI

**PadawanInPerl** · 03/12/2010, 15h03

Voilà l'idéal serait d'avoir comme sur la 2è page...

insertion d' -after ou before

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager