Help for this page

Select Code to Download


  1. or download this
    #$can->bind( \$can, '<Button-1>', \&my_test( $root ) );
$can->bind( '<Button>', [ \&my_test, $root ] );
  2. or download this
    $ ./bind_test.pl
 at c:/Perl/site/lib/Tk.pm line 228.