#!/usr/bin/perl
use strict;
use warnings;
use Curses::UI::Mousehandler::GPM;
if (gpm_enable) {
print "Succesfully enabled GPM mouse events\n";
} else {
print "Couldn't enable GPM mouse events\n";
}
while (1) {
my $MEVENT = gpm_get_mouse_event();
if ($MEVENT) {
# print "$MEVENT\n";
my ($id, $x, $y, $z, $bstate) = unpack("sx2i3l", $MEVENT);
my %MEVENT = (
-id => $id,
-x => $x,
-y => $y,
-bstate => $bstate
);
print "Got mouse event at $x,$y\n";
}
}