erreur de segmentation perl Tk gedit

campos campos.herve at wanadoo.fr
Jeu 17 Nov 14:46:09 UTC 2005


campos a écrit :

> bonjour,
> Permettez-moi de vous transmettre un script perl-Tk qui fonctionne 
> sans problème sur warty, hoary, debian sarge mais renvoie une erreur 
> de segmentation à la sortie de la fenêtre gedit.

sur la distribution breezy

> [code]
> #!/usr/bin/perl -w
> #
>
> use Tk;
> $mwfichier = MainWindow->new();
> $mwfichier->title("Gestion des fichiers ");
>
> #####
> $cadre = $mwfichier->Frame->pack(-side => 'top',
>                          -fill => 'x');
> $cadre ->Label(-text => "Fichier à éditer : ")->pack(
> -side=> 'left',
> -anchor=>'w'
> );
> $cadre->Entry(-textvariable=> \$idfichier, -width =>'11'
>                  )->pack(
> -side=> 'left',
> -anchor=>'w',
> -expand => 1);
> #####
>
> ####
> $cadre->Button(-text => "Editer",
>               -command => \&okedit )->pack(-side => 'left',
>                         -fill => 'x'
>                                                );
>
> MainLoop;
>
> sub okedit {
> system("gedit","$idfichier");
> }
> [\code]
>
> Vos lumières me seraient précieuses.
> bien à vous
> hervé
>
>






Plus d'informations sur la liste de diffusion ubuntu-fr