AW: SDL::Event - invalid button_state on SDL_MOUSEMOTION ?

[Alex]

Ah, thanks! Now it works fine.

Here is the code, maybe someone knows a better or more efficient way to do
it:

[code]
#!perl

use strict;
use warnings;
use SDL;
use SDLx::App;
use SDL::Event;  # for the event object itself
use SDL::Events; # functions for event queue handling

my $app = SDLx::App->new(
        title => 'text wrap',
        exit_on_quit => 1,
        init => SDL_INIT_VIDEO
);

$app->add_show_handler( \&render );
$app->add_event_handler( \&handle_events );

$app->run();

exit(0);

sub handle_events {
    my $event = shift;
        my $controller = shift;
    
    my ($mask, undef, undef) = @{ SDL::Events::get_mouse_state( ) };
    if( $event->type == SDL_MOUSEMOTION && !($mask & SDL_BUTTON_LMASK) ) {
        print "mousemotion and no left key pressed\n";
    }elsif( $event->type == SDL_MOUSEMOTION && ($mask & SDL_BUTTON_LMASK) )
{
        print "mousemotion with left key pressed\n";
    }
    
    return;
} # /handle_events


sub render {
    my ($delta, $app) = @_;
    
        $app->update();
        return;
} # /render
[/code]

-----Ursprüngliche Nachricht-----
Von: Tobias Leich [mailto:em...@froggs.de] 
Gesendet: Dienstag, 31. Januar 2012 09:13
An: Alex
Cc: sdl-devel@perl.org
Betreff: Re: SDL::Event - invalid button_state on SDL_MOUSEMOTION ?

Documentation tells that you have to use ->motion_state instead of
->button_state.

See: http://sdl.perl.org/SDL-Event.html#Mouse_motion_events

--
Cheers, Tobias

Am 30.01.2012 23:23, schrieb Alex:
> Dear all!
>
> I'm still working on this kind of button-like widget and I want to 
> implement the behaviour when hovering over the button.
> Unfortunately, the button_state does not work as I expected (maybe I 
> expected it wrong).
>
> When I click somewhere, continue to hold down the mouse button (so 
> there is no SDL_MOUSEBUTTONUP event) and move the mouse, shouldn't 
> $event->button_state return SDL_PRESSED (which is 1)?
> Because, using the script attached, I always get SDL_RELEASED (0).
> The single case where I get SDL_PRESSED is when I check it on 
> SDL_MOUSEBUTTONDOWN.
>
> So, is this behaviour intended? 
> Or, to ask it in another way: do I have to keep track of the 
> SDL_MOUSEBUTTONUP event myself in order to determine if the user still 
> holds down the mouse button?
>
> Kind regards,
> Alex
>
> #!perl
>
> use strict;
> use warnings;
> use SDL;
> use SDLx::App;
> use SDL::Event;  # for the event object itself use SDL::Events; # 
> functions for event queue handling
>
> my $app = SDLx::App->new(
>       title => 'text wrap',
>       exit_on_quit => 1,
>       init => SDL_INIT_VIDEO
> );
>
> $app->add_show_handler( \&render );
> $app->add_event_handler( \&handle_events );
>
> $app->run();
>
> exit(0);
>
> sub handle_events {
>     my $event = shift;
>       my $controller = shift;
>     
>     if( $event->type == SDL_MOUSEMOTION ) {
>         printf "Button state: [%s]\n",$event->button_state;
>     }
>     
>     return;
> }
>  
>
> sub render {
>     my ($delta, $app) = @_;
>     
>       $app->update();
>       return;
> } # /render
>

-----
eMail ist virenfrei.
Von AVG überprüft - www.avg.de
Version: 2012.0.1901 / Virendatenbank: 2109/4776 - Ausgabedatum: 30.01.2012