Help for this page

Select Code to Download


  1. or download this
    sub PlayAnimation{
my $animation_toplevel = $main::mw->Toplevel;
...

my $anibut = $animation_toplevel->Button(-image=>$img, -command=>sub{p
+rint"You pressed me!";})->pack;
}
  2. or download this
    Tk::Error: Cannot open 'image3' in mode 'r' at C:/Perl/lib/Tk/Image.pm
+ line 21.
 Tk callback for .toplevel1
...
 Tk::Button::butUp at C:/Perl/lib/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)