Win32 :: значок панели управления графическим интерфейсом не работает

Question

Значок в трее не изменяется. Что может быть причиной? Я использую последнюю версию Strawberry Perl v5.20.2 x86, Win32 :: GUI v1.11, Windows 7 x64.

use strict; 
use warnings; 
use Win32::GUI; 


my $main = Win32::GUI::Window->new(
-name => 'Main', 
-text => 'Perl', 
-width => 200, 
-height => 200 
); 

my $icon = new Win32::GUI::Icon('1-0.ico'); 
my $ni = $main->AddNotifyIcon(
-name => "NI", 
-icon => $icon 
); 

my $icon2 = new Win32::GUI::Icon('0-0.ico'); 


Win32::GUI::Dialog(); 
while(1) 
{ 
    $ni->Change(-icon => $icon); 
    sleep(5); 
    $ni->Change(-icon => $icon2); 
    sleep(5); 
} 

Answer 1

Win32::GUI::Dialog(); 

Выводите после того, как в то время как петля для того, чтобы работать. :(