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

    $checked = SimpleButton->checkall($event->button_x,$event->button_y);
    
    print "\r   ",$checked->get('ID'),"   ";

    if($event->button eq 1) 
    {
        &{$checked->dosub()}($checked);
    }
}

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