#--------------------------------bouton quitter------------------------------------------------------------

	sub quitter { my $reponse = $mw->messageBox(-icon => question,
                -message => "Etes vous sûr de vouloir quitter? \n Toute donnée non enregistrée sera perdue.",
                -title => "Quitter",
                -type => "OKCancel", 
                -default => 'OK'
				);
	  if( $reponse eq "Ok" ) {
		exit;
	} 
}