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 :
Tk::Error: Can't locate auto/Tk/Dialog.al in @INC
voilà mon script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.