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:
END UPDATE$cn->toplevel->bind( '<ButtonPress>', [ sub { my ( $x, $y, $cn ) = @_; $lx = $x; $ly = $y; _start_draw($cn); }, Tcl::Ev('%x', '%y'), $cn, ] );
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...
Back to
Seekers of Perl Wisdom