[web] position du logo avec TK

J'ai un probleme mon logo apparait bien en haut de la fenetre mais au centre pas a gauche,
et si je mets le logo dans la frame de gauche s'est trop a gauche,
il faut qu'il soit dans la frame du haut au centre, mais a gauche, ou je fais une erreur, merci.


$main = MainWindow->new();

$topFrame = $main->Frame(-background => 'gray')->pack(-side => 'top');

$mon_image = $main -> Photo ( -file => 'c:\\perl\\bin\\logo.gif' ) ;

$label_visu = $topFrame -> Label (
-relief => 'sunken' ,
-borderwidth => 2 ,
-image => $mon_image
) ;

$label_visu ->pack (-side => 'left') ;

Citation:

---

Envoyé par stepha001

il faut qu'il soit dans la frame du haut au centre, mais a gauche

---

Euh ...là, je n'ai pas capté ...

Sinon, quelques trucs ...

Utilise les balises [ code ] et [ /code ] pour mettre ton source en valeur,

N'oublie pas qu'en perl, un / suffit à séparer les parties de noms de fichiers, et ce quelque soit l'environnement (*n*x, win*) :

Code:

---

$mon_image = $main -> Photo ( -file => 'c:/perl/bin/logo.gif' ) ;

---

Poste tout ce qui est nécessaire à la compréhension et la reproduction de ton problème (les 'use machin', et autres déclarations, l'invocation de MainLoop pour le Perl/Tk, etc.), parce que, par défaut, on n'utilise pas forcément les mêmes habitudes de programmation et que devoir remettre ce qui manque nous freine (voire nous arrête) dans l'étude de ton problème.


A part ça, je vais me replonger dans le packing, sous Tk ... il y a longtemps que je n'en ai pas fait :) ... mais je ne capte pas bien ce que tu veux faire, exactement.

Bon courage.

Si tu veux mettre le logo ds la frame du haut a gauche tu dois faire ca je pense =)

Code:

---

1 2	$mon_image = $topFrame -> Photo ( -file => 'c:\\perl\\bin\\logo.gif' ) ;

---

Comme ca le logo sera ds la frame du haut et a gauche.
C'est ca que tu veux ?

j'avais deja essayer cela ne change rien,

l'image est bien en haut mais elle est centre et non pas a gauche.

pour mettre ton image à gauche, voici la solution :

Code:

---

$mon_image -> pack (-side => 'left');

---

non cela ne marche pas:
par contre j'ai trouve il suffit:

Code:

---

$topFrame = $main->Frame(-background => 'gray')->pack(-side => 'top',-anchor => 'nw');

---

ok, c'est cool, tag resolu please