1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
foreach $rdr (keys %IDEN)
{
#Creation de la boite à evenement qui va contenir la frame
${"EventBox$rdr "} = Gtk2::EventBox->new;
${"EventBox$rdr "}->add_events (['button-press-mask']);
${"EventBox$rdr "}->signal_connect ('button-press-event' =>
sub {
my ($widget, $event) = @_;
my @child= $widget->get_children;
????????????????????????????????????????????
my @proprietes = $widget->child_get(?????);
????????????????????????????????????????????
$Notebook->set_current_page ( $Notebook->page_num (??label recuperé dans @proprietes??) );
}
);
#Creation de la frame dans la boite à evenement
${"Frame$rdr "} = Gtk2::Frame->new( "$rdr " ) ;
${"EventBox$rdr "}->add (${"Frame$rdr "});
.........
} |
