insertion d' -after ou before

Version imprimable

Hello,

Je n'arrive pas à incorporer -after $var

Cela me génére une erreur
Code:

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 ?

03/12/2010, 13h34
djibril

Que souhaites réellement faire ?
03/12/2010, 13h40
PadawanInPerl

Je voulais mettre mes 2 boutons centré et cote-a-cote...
c'est pour ça que je souhaité mettre -after $var
03/12/2010, 13h46
djibril

Code:

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

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

Code:

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);

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:

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:

-after => $Button1

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

Code:

-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.

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

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

$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:

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...:calim2:

03/12/2010, 15h39
djibril

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.
03/12/2010, 15h42
djibril

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.
03/12/2010, 15h58
PadawanInPerl

par MP

MERCI:ccool:
03/12/2010, 16h03
PadawanInPerl

1 pièce(s) jointe(s)

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