Problème avec un nouveau module
Bonjour à tous,
voilà je suis en train d'écrire un nouveau module, celui-ci utilise un autre module qui est "Tk", lorsque je fais appel à la méthode Quit de ce module j'ai l'erreur suivante :
Citation:
Tk::Error: Can't locate auto/Tk/Dialog.al in @INC
voilà mon script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| package Vsim;
use strict;
use warnings;
use Tk;
require Tk::JPEG ;
require Tk::LabFrame;
require Tk::Table;
require Tk::Widget;
require Tk::NoteBook;
require Tk::BrowseEntry;
use vars qw($library_entry %cds_lib $cell_entry %cell_list $line_number $main $noteBook $pls_page $configuration_page $results_page $out_file_page %data $mode @simulator_choosen $report_done @files_list $text $file_number $processing_executed %netlists_differences $vsim_version $save_netlists_checkbutton);
our @ISA = qw();
our $VERSION = '1.0';
# Preloaded methods go here.
sub new {
my $objet = shift;
my $reference = {};
bless($reference,$objet);
return($reference);
}
}
sub Quit{
#Procedure To Confirm closing the application
my ( $boite_dialogue ) ;
my ($fenetre) = @_;
#my $t = Dialog->Populate();
$boite_dialogue = $fenetre -> Tk::Dialog (
-title => 'Quit' ,
-text => 'Do you really want to Quit ?' ,
-bitmap => 'question' ,
-default_button => 'Yes' ,
-buttons => [ 'Yes' , 'No' ]
) ;
my $reponse = $boite_dialogue -> Show ( ) ;
if ( $reponse eq 'Yes' ){
$fenetre->destroy(); ;
}
}
1;
__END__ |
Si quelqu'un a une idée qu'il me fasse ses commentaires, Merci d'avance.
