#icon fuer mainwindow
 my $bitmap = $mainw->Pixmap(-file=> "$pathToScript/images/find.xpm"); # oder 
 $mainw->Icon(-image => $bitmap);
#end icon