my $icon = $mw->Photo(-file   => $Config{icon_main},
                           -height => $Config{icon_main_size_y},
                           -width  => $Config{icon_main_size_x},
                          );
     $mw->Icon(-image => $icon);