http://qs1969.pair.com?node_id=1156788

Sandy has asked for the wisdom of the Perl Monks concerning the following question:

UPDATE

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, ] );
END UPDATE

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') ] );

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