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
