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 : 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
#!/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.