[Tk] gerer la taille d'une messageBox

Bonjour,

J'aimerai agrandir la taille de la messagebox quand elle s'affiche.
Je connais bien évidemment les option "geometry" et l'utilisation de pack mais cela ne me permet pas de gérer la taille de la fenêtre quand elle apparait
voici le code :

Code:

---

1 2 3 4 5 6 7 8

my $mw= new MainWindow; $mw -> geometry("1200x1200+0+0"); my $response1 = $mw -> messageBox(-message=>" TSUNAMI POUR MARTINIQUE", -type=>'Poursuivre', -title=>"Tsunami watch martinique", -background=>'red', -foreground=>'black',);

---

Je souhaiterai définir la taille de la messagebox ici décrite
merci

Peut-être que si tu utilisais geometry sur la messageBox elle-même...
Par ailleurs pourquoi veux-tu changer la taille d'une messageBox, ça semble un peu bizarre comme besoin.

--
Jedaï

Je suis du même avis que jedai, je ne vois pas du tout l'interet de changer la taille du messagebox, qui change automatiquement si ton texte est plus long

Merci pour ces premières réponses.

Je voudrai l'agrandir pour la simple et bonne raison que le texte contenu est assez long en vérité (je l'ai tronqué dans le code copié).
Et que actuellement la messagebox n'est pas assez large si bien que j'ai des retours à la ligne au milieu de mes phrases.
Dans un soucis d'harmonisation de la présentation j'aimerai élargir la fenêtre.

De plus j'ai essayé la méthode geometry sur la messagebox mais cela ne fonctionne pas

D'ailleurs

Code:

---

-type=>'Poursuivre',

---

ne devrait pas fonctionner, car tu ne peux mettre que
abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel en valeur de type pour un messagbox
Exemple :

Code:

---

1 2 3 4 5 6 7

my $mw= new MainWindow; #$mw -> geometry("1200x1200+0+0"); $mw ->messageBox(-message => "TSUNAMI POUR MARTINIQUE Tsunami watch martinique Tsunami watch martinique Tsunami watch martinique", -type => "OK", -icon => "warning", -title => "Tsunami watch martinique", );

---

Pour autant cela fonctionne avec 'Poursuivre'
'Ok' est utilisé comme valeur par défaut.
Il suffit de considérer 'Poursuivre' dans les conditions à venir plutot que 'Ok'

Code:

---

1 2	if( $response1 eq "Poursuivre" )

---

De plus il me semble que le type doit être mis entre simple quote (') et non (")

Enfin le fonctionnement de la messagebox n'est pas en question car cette dernière n'entraine aucun disfonctionnement dans mon programme.