Help for this page

Select Code to Download


  1. or download this
    $mw = new MainWindow (-title => "My Perl/Tk app");
my $newlogo = $mw->setIcon(-file => $imagedir."logo.ico");
  2. or download this
    convert logo.png logo.xpm
  3. or download this
    $mw = new MainWindow (-title => "My Perl/Tk app");
my $newlogo = $mw->Photo(-file => $imagedir."logo.xpm", -format => 'xp
+m');
$mw->Icon(-image => $newlogo);