Tk::MouseGesture is Perl module to create bindings for mouse gestures.
SYNOPSIS
use Tk::MouseGesture;
my $mg = $top->MouseGesture('B1-left',
-xres => 20,
-yres => 20,
-min => 50,
-command => sub { print "yes!n" });
$mg->addGesture('B3-diag-UL');
Tk::MouseGesture allows your Perl/Tk app to recognize various mouse gestures. A mouse gesture is a series of mouse motions (usually accompanied by a button drag) that act as short-cuts to certain operations. They are most widely used in web browsers like Opera and Mozilla. Gestures are bound to callbacks such that when a user performs a recognized gesture, the corresponding callback is called.
Product's homepage
Requirements:
· Perl