Re: [perl-win32-gui] Win32::GUI::NotifyIcon

[Aldo Calpini]

Thanos Chatziathanassiou wrote:
>Anyone could get this to work ? Documentation is a little scarce about
>it..
>I tried
>$TrayIcon = new Win32::GUI::NotifyIcon(
>   -parent => "Main",
>   -name   => "Tray",
>   -icon     => "test.ico",
>) ;

hummm
you're confusing object names and object themselves ;-)
both the parent and the icon are references (eg. instantiated
variables), not plain names. a possible rewrite of your snippet
could be:

$Test = new Win32::GUI::Icon("test.ico");
$TrayIcon = new Win32::GUI::NotifyIcon(
    $Main,
    -name => "Tray",
    -icon => $Test,
);

__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef, 
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};