Discussion :

[dubis]

Bonjour,

Voici ma boite de dialogue extrait de mon script perl :

Code :

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

1
2
3
4
5
6
7
my $dialog = Gtk2::MessageDialog->new ($window, 
	[qw/modal destroy-with-parent/], 
	'error', 
	'ok' , 
	"Une erreur  a été detectée!" ) ; 
$dialog->signal_connect (response => sub { Gtk2->main_quit; 1 });
$dialog->show_all;

J'aimerais que la ligne "Une erreur a été détectée" apparaisse caractère en gras

D'avance Merci

[djibril]

Bonjour,

Je n'y connais rien en GTK2, mais as-tu regardé coté label et font ?

Code trouvé mais pas testé :

Code :

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

my $label1 = Gtk2 : :Label- > new(); $label1- > set markup( " < span face=’Courier New’ >< b > Courier New 10 Gras < /b >< /span > \ n" );

[dubis]

Merci Djibril,

En fait c'est bien plus simple car tu n'a pas besoin d'integrer un nouvel objet mais il faut changer la définition je crois avec new_with_markup d’après la doc suivante :
http://gtk2-perl.sourceforge.net/doc...ide/c1499.html

Code :

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

1
2
3
4
5
6
7
my $dialog = Gtk2::MessageDialog->new_with_markup($window, 
	[qw/modal destroy-with-parent/], 
	'error', 
	'ok' , 
	"<span><b>Une erreur  a été detectée!</b></span>" ) ; 
$dialog->signal_connect (response => sub { Gtk2->main_quit; 1 });
$dialog->show_all;

[djibril]

ça peut toujours servir : http://www.developpez.net/forums/d13...iel-gtk2-perl/.