#!/usr/bin/perl
package SimpleButton;


sub new {
    my ($class,@params) = @_;
    my $self = {};
    bless($self,$class);

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

    $self->{ID} = shift(@params);
    $self->{APP} = shift(@params);
    $self->{X} = shift(@params);
    $self->{Y} = shift(@params);
    $self->{IMG} = shift(@params);
    $self->{IMGHV} = shift(@params);
    $self->{HV} = 0;


    $self->draw($self->{IMG});
    return($self);
}





sub draw
{
    my ($self, $img) = @_;

    my $frame_rect = SDL::Rect->new(-height => $img->height(),-width  => $img->width(),-x      => 0, -y      => 0);
    my $dest_rect = SDL::Rect->new(-height => $img->height(),-width  => $img->width(),
    -x      => $self->{X},-y      => $self->{Y},);


    $img->blit( $frame_rect, $self->{APP}, $dest_rect );
    $self->{APP}->update( $dest_rect );
    $self->{APP}->flip;
}






sub check
{
    my $self = shift;
    my $mx = shift;
    my $my = shift;
    my $event = shift;

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

    #Hover - Effekt
    if($mx > $self->{X} &&  $mx < ($self->{X}+ $img->width)  && $my > $self->{Y}    &&   $my < ($self->{Y}+ $img->height) )
    {
        if(not  $self->{HV}) {$self->{HV}=1; $self->draw($self->{IMGHV});}
        if($event->button eq 1 )  {return $self->{ID};}
    } else
    {
        if($self->{HV}) {$self->{HV}=0; $self->draw($self->{IMG});}
        return 0;
    }

}



1;

use FindBin qw($Bin); chdir($Bin);

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


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,
);



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


#Button hinzufügen...      
for my $i (0..15)
{
    for my $x (0..10)
    {
       $id++;
       push(@butts,  SimpleButton->new($id,$app,(65*$x),(25*$i),$img,$img2)   );
   }
}






$event = new SDL::Event();

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));

   for(@butts)
   {
           my $click = $_->check($event->button_x,$event->button_y,$event);
           if($click ne 0 )            {print "\r  ",$click,"      ";}

    }


}