Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$mw->Label(-image => $imtk)->pack(-expand => 1, -fill => 'both');
$mw->update;
MainLoop;
  2. or download this
    couldn't recognize image data at C:/Strawberry/perl/site/lib/Tk/Image.
+pm line 21.