#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Tickit::Test;
my $rootwin = mk_window;
# dragging within one window
{
my @mouse_events;
$rootwin->set_on_mouse( sub {
my ( $win, $ev ) = @_;
push @mouse_events, [ $ev->type => $ev->button, $ev->line, $ev->col ];
return 1;
} );
# press
pressmouse( press => 1, 2, 5 );
is_deeply( \@mouse_events,
[ [ press => 1, 2, 5 ] ],
'mouse_events after press' );
undef @mouse_events;
# drag
pressmouse( drag => 1, 3, 5 );
is_deeply( \@mouse_events,
[ [ drag_start => 1, 2, 5 ],
[ drag => 1, 3, 5 ] ],
'mouse_events after drag contains drag_start' );
undef @mouse_events;
# release
pressmouse( release => 1, 3, 5 );
is_deeply( \@mouse_events,
[ [ drag_drop => 1, 3, 5 ],
[ drag_stop => 1, 3, 5 ],
[ release => 1, 3, 5 ] ],
'mouse_events after release contains drag_drop and drag_stop' );
undef @mouse_events;
$rootwin->set_on_mouse( undef );
}
# dragging between windows
{
my $winA = $rootwin->make_sub( 0, 0, 10, 80 );
my $winB = $rootwin->make_sub( 15, 0, 10, 80 );
my @eventsA; $winA->set_on_mouse( sub {
my ( undef, $ev ) = @_;
push @eventsA, [ $ev->type => $ev->button, $ev->line, $ev->col ];
return 1;
});
my @eventsB; $winB->set_on_mouse( sub {
my ( undef, $ev ) = @_;
push @eventsB, [ $ev->type => $ev->button, $ev->line, $ev->col ];
return 1;
});
flush_tickit;
pressmouse( press => 1, 5, 20 );
pressmouse( drag => 1, 8, 20 );
pressmouse( drag => 1, 12, 20 );
pressmouse( drag => 1, 18, 20 );
pressmouse( release => 1, 18, 20 );
is_deeply( \@eventsA,
[ [ press => 1, 5, 20 ],
[ drag_start => 1, 5, 20 ],
[ drag => 1, 8, 20 ],
[ drag_outside => 1, 12, 20 ],
[ drag_outside => 1, 18, 20 ],
[ drag_stop => 1, 18, 20 ] ],
'mouse events to window A after drag/drop operation' );
is_deeply( \@eventsB,
[ [ drag => 1, 3, 20 ],
[ drag_drop => 1, 3, 20 ],
[ release => 1, 3, 20 ] ],
'mouse events to window B after drag/drop operation' );
}
done_testing;