use FindBin qw($Bin); chdir($Bin);
use lib $FindBin::Bin . '/LIBS'; use X; #in zusätzlichen sub dir "X", daher X::

#use SDL::X;


my $container = X->new();
$GFXButton = X::GFXButton;


$|=1;

use SDL;
use SDL::App;
use SDL::Event;
use SDL::Surface;
use SDL::Color;
use SDL::Rect;

my $app = SDL::App->new(-width  => 730,-height => 430,-depth  => 16,);

$event = new SDL::Event();
$img = SDL::Surface->new( -name => 'x.png' ); $img2 = SDL::Surface->new( -name => 'x_on.png' ); $img3 = SDL::Surface->new( -name => 'x_click.png' );





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





while(1)
{
    #process event queue
    $event->pump;
    $event->poll;
    my $etype=$event->type;

    # handle user events
    last if ($etype eq SDL_QUIT );
    last if (SDL::GetKeyState(SDLK_ESCAPE));


    ($active_element, $B_event_sub) = $container->checkall($event->button_x,$event->button_y);


    if($etype eq SDL_MOUSEBUTTONDOWN && $active_element)
    {
         $active_element->button_down();
         if($B_event_sub) {&{$B_event_sub}($active_element);};
    }


    #if ( $active_element )  { $active_element->set('PRESSED',1); };
    if($etype eq SDL_MOUSEBUTTONUP) {$GFXButton->buttons_up($container);$GFXButton->destroy_buttons($container);}

}








#Button Event
sub loslos
{
    my $self  = shift; my ($ID, $IMG ) = $self->get("ID", "IMG");
    print "\n   $ID - $IMG   ";
}

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;

package X::GFXButton;
use strict;




#----------------------------------------------------- INI --------------------------------------------------------




#Erzeugen
sub new {


    my ($class,@params) = @_;
    my $self = {};
    bless($self,$class);
    #for(qw(ID APP X Y IMG IMGHV)){$self->{$_} = shift(@params);}

    $self->{CONTAINER} = shift(@params);        #Container
    $self->{ID} = shift(@params);         #ID oder Name
    $self->{APP} = shift(@params); #SDL APP
    $self->{X} = shift(@params);
    $self->{Y} = shift(@params);
    $self->{IMG} = shift(@params);  #IMG normal
    $self->{IMGHV} = shift(@params);   #IMG hover
    $self->{IMG_click} = shift(@params);            #IMG click
    $self->{DOSUB} = shift(@params);#Button's sub
    $self->{TXT} = shift(@params); #Button's Text


    $self->{HV} = 0; #Hover state
    $self->draw($self->{IMG}); #Display

    push( @{$self->{CONTAINER}->{BUTTS}}   ,  $self);


    return($self);
}








sub check_button
{
    my ($self, $mx, $my) = @_;

    my $img = $self->{IMG};

    #Hover - Effekt
    if($mx > $self->{X} &&  $mx < ($self->{X}+ $img->width)  && $my > $self->{Y}    &&   $my < ($self->{Y}+ $img->height) )
    {

        if($self->{PRESSED} eq 1){$self->draw($self->{IMG_click});} else
        {
            if(not  $self->{HV}) {$self->{HV}=1; $self->draw($self->{IMGHV});}
        }


         return $self;
    } else
    {
            if($self->{PRESSED} eq 1){$self->draw($self->{IMG_click});} else
            {
                if($self->{HV}) {$self->{HV}=0; $self->draw($self->{IMG});}
            }
    }

    return 0;
}











#---------------------------------------------------------- CODE OK ----------------------------------------------------------

#Grafik darstellen
sub draw
{
    my ($self, $img) = @_;
    my $dest_rect = SDL::Rect->new(-height => $img->height(),-width  => $img->width(),-x=> $self->{X},-y => $self->{Y});
    $img->blit( SDL::Rect->new(-height => $img->height(),-width  => $img->width(),-x => 0, -y  => 0), $self->{APP}, $dest_rect );
    $self->{APP}->update( $dest_rect );
}



#Button geklickt darstellen
sub button_down { $_->{PRESSED} = 1;}

#Bei MausUP Buttons normal zeichnen
sub buttons_up  {
my ($self, $container) = @_;
for(@{$container->{BUTTS}})
 {$_->{PRESSED} = 0; $_->draw($_->{IMG});}
}


#Button_on
#Button_off

#Buttons_on
#Buttons_off


#Buttons nicht mehr prüfen
sub destroy_buttons {
my ($self, $container) = @_;
$container->{BUTTS} = [];}




#Parameter zurückgeben (mehrere)
sub get
{my ($self, @values) = @_; my @out = ();for(@values) {push(@out,$self->{"$_"}); } return @out;}

#Einelnen Parameter setzen
sub set
{my ($self, $param, $value) = @_;  $self->{$param} = $value;}


1;

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

#Bei MausUP Buttons normal zeichnen
sub buttons_up  {
my ($self, $container) = @_;
for(@{$container->{BUTTS}})
 {$_->{PRESSED} = 0; $_->draw($_->{IMG});}
}


Aufruf:
$GFXButton->buttons_up($container);