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__ |
Partager