To use the Eval from Tcl, it must be the first parameters passed to the callback function.

Example:

    $cn->toplevel->bind(
        '<ButtonPress>',
        [
           sub {  my ( $x, $y, $cn ) = @_;
               $lx = $x;
               $ly = $y;
               _start_draw($cn);
           },
           Tcl::Ev('%x', '%y'),
           $cn,
        ]
    );
[download]

Ok, I am stumped

Checking what it takes to convert to Tcl/Tk from Perl/Tk.

Was good, until I tried to work with a mouse event

How do I get the position of the mouse?

Tried many things, (latest shown below), but can't seem to get what I need. Anybody know?

    $cn->toplevel->bind(
        '<ButtonPress>',
        [
           sub {print "hello sandy\n";
                   print "anonymous: ",join(", ",@_),"\n";
               
               my ( $cn, $x, $y ) = @_;
               $lx = $x;
               $ly = $y;
               _start_draw($cn);
           },
           $cn,
           $int->Eval('set lx %x'),
           Ev('%y')
        ]
    );
[download]

just tried $int->Ev which returns a Tcl::Ev event... not quite sure what to do with yet...