Re: Re: Tk bind mouse down question

Okay so I changed my code like so ...

#$can->bind( \$can, '<Button-1>', \&my_test( $root ) );
$can->bind( '<Button>', [ \&my_test, $root ] );
[download]

... now I get this error message ...

$ ./bind_test.pl
 at c:/Perl/site/lib/Tk.pm line 228.
[download]

Did I misunderstand something?
Thanks

Plankton: 1% Evil, 99% Hot Gas.

Comment on Re: Re: Tk bind mouse down question Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Tk bind mouse down question by mawe (Hermit) on Jun 01, 2004 at 16:09 UTC
Try this: `$top->bind($can, '<Button-1>', sub{my_test(root)});` [download]	[reply] [d/l]