my $image=$mw->Photo(-file=> "logo.gif");
$mw->idletasks;
$mw->Icon(-image => $image);