Re: [perl-win32-gui-users] how to make a menu to a notifyicon

[Geoffrey S. <geo...@gm...>]

Here's some brief sample code that should give you an idea of how this is done:
# create the menu with stuff you want to show up in the menu on the 2nd level
my $pmenu = Win32::GUI::MakeMenu (
                                  "Popup" => "Popup",
				  "> &Preferences" => "Prefs",
				  "> &Quit" => {
						-name => "Quit",
						-onClick => sub {
						  return -1;
						}},
					
				  "> &Show Window" => {
						       -name => "Showwindow",
						       -onClick => sub{
							 $window->Enable();
							 $window->Show();
							 return 1;
						       }},
);

# then in the notifyicon, use the menu in the RightClick event:
      my $notifyicon = $window->AddNotifyIcon (
					       -name => "ni",
					       -icon => $useicon,
					       -tip => "whatever your icon does",
					         -onRightClick => sub {
						 $window->TrackPopupMenu($pmenu->{Popup});
					       },
					      );


On 6/18/07, a98...@gm... <a98...@gm...> wrote:
> Hi,
>
> I want to make a short menu which appears after right-clicking on my notifyicon. is this possible? how can I make it?
> the right-click-event works fine.
>
>
> thx
> j.
>
> --
> GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
> Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Geoffrey Spear
http://www.geoffreyspear.com/