This is eventually what I did. I was just wondering if there is some other more elegant way to do it. Any way this is the way I calculated the corrected position of y-Axe:
$self->{canvas}->CanvasBind("<Button-3>", [ \&popup_menu, Ev1('%y') ]);
sub popup_menu
{
my ($canv...
The code I've posted is just a simplified version of what I really need to do.
What I'm really trying to do is to draw a map with layer of information. The problem is that for example lines from the grid of the map hide events from the layer beneath them.
Thanks
Ori
Hi.
I'm new to PerlTk.
What I'm trying to achieve is getting the message "oval was pressed" even when I press the rectangle.
Below there a simplified version of the code.
require v5.8.5;
use Tk;
my $window = MainWindow->new;
my $drawing = $window->Canvas(-width => 400, -height => 300...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.