Re: [perl-win32-gui-users] Minimize to Systray

[Johan L. <jo...@ba...>]

At 16:38 2002-08-26 -0500, Gossett, Malachy wrote:
>Well, it still doesn't look like I'm getting it, but I am trying to get 
>this to minimize to the sys tray.  Anyone with experience in this see 
>where I am missing the boat?

You never create a NotifyIcon, only an Icon.

The following is from a small script of mine (Clipboard Transformer, hence 
the names).


#Tray icon
my $fileIcon = "resource/transformer.ico";
my $icoTray = new Win32::GUI::Icon($fileIcon) or die("Could not load icon 
($fileIcon)\n");

#This is what actually puts the icon in the tray
my $niTray = Win32::GUI::NotifyIcon->new($winTransformer,
         -name   => "niTray",
         -id     => 1,
         -icon   => $icoTray,
         -tip    => $textNameProgram,
         );

So in an event (either the window's Minimize event, or a buttons Click 
event, or whatever), you Hide() your window. Only the tray icon is left for 
the user to click on.


In the events for the NofifyIcon, you Show() the window (or display a popup 
menu or something):

sub ::niTray_Click {
     return(::niTray_RightClick(@_));
     }

sub ::niTray_RightClick {

     #Here you Show() your window again.

     return(1);
     }


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Taste for Makers"
http://www.paulgraham.com/taste.html
dmoz (1 of 7): /Computers/Programming/Languages/Lisp