Discussion :

[kimous]

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

[Schmorgluck]

Avec des balises CODE ce serait plus lisible.
Et tu as oublié d'utiliser le pragma strict.

[kimous]

Désolé ^^

Pour le pragma je l'ais rajouté et en se qui conserne mon problème j'ais fini par trouver car un collègue est passé par là!

Désolé pour le dérangement!
Je vous remercie de la réponse qui a été rapide!

Encore merci et bonne journée!!

Kimous