[Perl] Problème de Checkbutton
Bonjour tout le monde,
J'ai un petit soucis avec les checkbuttons. Voici mon script qui doit gerer la suppression d'utilisateur avec (ou non) la suppression de son compte personnel :
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
| #!/usr/bin/perl -w
use Gtk2 '-init';
use constant TRUE => 1 ;
use constant FALSE => 0;
#script
my $window = Gtk2::Window->new( "toplevel" ) ;
$window->set_default_size( 300 , 100 ) ;
$window->set_title( "Supression d'utilisateurs" ) ;
$window->signal_connect( "delete_event" , sub {Gtk2->main_quit ;}) ;
$window->set_border_width( 15 ) ;
my $vbox = Gtk2::VBox->new(FALSE,0);
$window->add($vbox);
$vbox->show();
my $entry = Gtk2::Entry->new() ;
my $entry1 = Gtk2::Entry->new();
$entry->signal_connect( "activate" , \&enter_callback, $entry ) ;
$entry->set_text( "Veuillez rentrer un utilisateur" ) ;
$entry->select_region( 0 , length( $entry->get_text() ) ) ;
$vbox->pack_start($entry,TRUE,TRUE,0);
$entry1->show();
$entry->show() ;
$window->show() ;
#fin_script
$button = Gtk2::CheckButton->new("Supprimer le repertoire personnel");
$button->signal_connect( "clicked" , \&Event_clicked ) ;
$vbox->add( $button ) ;
$button->show() ;
$window->show() ;
Gtk2->main ;
sub enter_callback
{
my ( $widget, $entry ) = @_ ;
my $entry_text = $entry->get_text();
print( "Vous venez de supprimer l'utilisateur : $entry_text\n" ) ;
#system "userdel $entry_text";
} |
Le problème que je recontre c'est que lorsque je clique sur le checkbutton il m'apelle donc la fonction \&Event_Clicked. Cependant c'est la meme fonction lors du cochage et du décochage de la case.
Avez vous une idée qui puisse me faire avancer dans mon projet?
( je travaille en perl-gtk2 )
Merci de vos reponses, et a bientôt.
