my $p = $e->GetEventObject->ClientToScreen($e->GetPosition());
my $x = $p->x;
my $y = $p->y;