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 "});
.........
} |
Partager