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, [EMAIL PROTECTED] <[EMAIL PROTECTED]> 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
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
--
Geoffrey Spear
http://www.geoffreyspear.com/
