Bonjour!
J'ais un petit soucis avec un script...
Je suis débutant et je m'entraine au perl en faisant un petit logicile de traitement de texte.
Le problème est que n'arrive pas à appliquer l'italique et le gras à ce que j'écris, ni changer la taille dans ma fenetre texte...

voila le script : J'y est ajouté d'autre menu mais j'ais pas tout mis je n'en vois pas l'utilité pour vous

#### Utilise TK/Perl ####
use Tk ;

#### Fenêtre Principale ####

$fenetre = new MainWindow ( ) ;
$fenetre -> configure ( -background => $couleur ) ;
$barre_menu = $fenetre -> Frame ( -relief => 'groove' , -borderwidth => 2 ) ;

#### Menu Police ####

$menu_police = $barre_menu -> Menubutton (
-text => 'Police' ,
-tearoff => 0 ,
-relief => 'groove' ,
-menuitems => [
[ 'cascade' => 'Style' ] ,
[ 'cascade' => 'Taille' ] ,

]
) ;

$menu_style = $menu_police -> menu -> Menu (
-tearoff => 0 ,
-menuitems => [
[ 'checkbutton' => 'Italique' ,
-variable => \$italique
] ,
[ 'checkbutton' => 'Gras' ,
-variable => \$gras
]
]
) ;

$menu_taille = $menu_police -> menu -> Menu (
-tearoff => 0 ,
-menuitems => [
[ 'radiobutton' => '20' ,
-variable => \$taille
] ,
[ 'radiobutton' => '30' ,
-variable => \$taille
] ,
[ 'radiobutton' => '40' ,
-variable => \$taille
] ,
]
) ;

$menu_police -> entryconfigure ( 'Style' , -menu => $menu_style ) ;
$menu_police -> entryconfigure ( 'Taille' , -menu => $menu_taille ) ;


#### Place des Menus ####

$barre_menu -> pack ( -side => 'top' , -anchor => 'n' , -expand => 1 , -fill => 'x' ) ;
$menu_police -> pack ( -side => 'left' ) ;

#### Taille fenêtre Texte ####

$texte = $fenetre -> Text ( -width => 100 , -height => 40 , -tabs => [ '15' ] ) ;
$texte -> pack ( ) ;


Voilà ^^ je suis ouvert à toutes propositions.
Merci d'avance.

Kimous