#Button hinzufügen...(test)
for my $i (0..15) { for my $x (0..10) { $id++; $X->new($id,$app,(65*$x),(25*$i),$img,$img2,$img3, 'loslos'); }}



$X = X::GFXButton;

($active_element, $B_event_sub) = $X->checkall($event->button_x,$event->button_y);
        
    if($event->button eq 1 && $active_element)
    {
            $active_element->button_click();
            &{$B_event_sub}($active_element) if($B_event_sub);
        
    }

#Button Event
sub loslos
{
    my $self  = shift;

    my ($ID, $IMG ) = $self->get("ID", "IMG");
    print "\r   $ID - $IMG   ";
}