package X;

use X::GFXButton;
my $GFXButton = X::GFXButton;



#Erzeugen
sub new {
    my ($class,@params) = @_;
    my $self = {};
    bless($self,$class);
     $self->{BUTTS} = [];

   return($self);
}






#------------ Alle Elemente Prüfen --------------------
sub checkall
{
    my ($self, $mx, $my) = @_;
    my $active_element = 0;
    my $B_event_sub = 0;

    #Buttons Prüfen
    for(@{$self->{BUTTS}}) {
        if($_->check_button($mx,$my)){$active_element = $_;}
    }



    #Events bearbeiten....
    if($active_element) {$B_event_sub = $active_element->{DOSUB};}
    return ($active_element, $B_event_sub);    #Object and the sub
}






#------------------------ ELEMENTE ------------------------

sub GFXButton_add
{return $GFXButton->new(@_);}

1;