Re: [tcltk-perl] Change the way that %-subs are handled.

[Jan D. <ja...@Ac...>]

On Wed, 21 Apr 2004 11:53:37 -0700, "Jeff Hobbs" <je...@Ac...>
wrote:

>$mw->bind('<Motion>', [$sub, Tcl::EV('%X', '%Y'), '<Motion>']);

[...]

>                             You could auto-prepend each %, but
>I think it's good to keep the logical connection of %-sub there.

I would think the Tcl::EV name already provides the connection to event
variables, so I would shorten this to:

  $mw->bind('<Motion>', [$sub, Tcl::EV('XY'), '<Motion>']);

Or do you expect to ever require multi-character variable names here?

Cheers,
-Jan