Set Wx app icon

lib/Slic3r/GUI.pm

@@ -19,7 +19,8 @@ sub OnInit {
     
     my $frame = Wx::Frame->new( undef, -1, 'Slic3r', [-1, -1], Wx::wxDefaultSize,
          wxDEFAULT_FRAME_STYLE ^ (wxRESIZE_BORDER | wxMAXIMIZE_BOX) );
-    #$frame->SetIcon(Wx::Icon->new("$FindBin::Bin/var/Slic3r.png", &Wx::wxBITMAP_TYPE_ANY) );
+    Wx::Image::AddHandler(Wx::PNGHandler->new);
+    $frame->SetIcon(Wx::Icon->new("$FindBin::Bin/var/Slic3r_128px.png", &Wx::wxBITMAP_TYPE_PNG) );
     
     my $panel = Slic3r::GUI::SkeinPanel->new($frame);
     my $box = Wx::BoxSizer->new(wxVERTICAL);