Ubuntu-fr

hervé

perl-Tk et gedit sous breezy

bonjour,
J'ai des soucis avec le programme suivant en perl-Tk;

#!/usr/bin/perl -w
# 

use Tk;
$mwfichier = MainWindow->new();
$mwfichier->title("Gestion des fichier ");

#####
$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");
}

A la fermeture de gedit, il me revoie une erreur de segmentation et je ne sais vraiment pas pourquoi. Cette application fonctionne parfaitement avec les versions warty, hoary et sous Debian sarge.
Vos lumières me seraient précieuses ...
a+
hervé

hervé

Re : perl-Tk et gedit sous breezy

Le bug a été résolu.
http://rt.cpan.org/Public/Bug/Display.html?id=16053
Le script fonctionne sous ubuntu dapper drake.
Merci à toute l'équipe ! C'est vraiment du beau travail !