[perl-win32-gui-users] Re; Popup menu

[Jonathan Southwick]

Erick,

Here is how I did it:

<=== Start of code ===>

# define popup menu for listview
my $PopupMenu = new Win32::GUI::Menu(
    "Item Properties" => "ItemProp",
    ">&Properties" => "ItemProperties",
);

# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) = Win32::GUI::GetCursorPos();

   $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}

# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}

<=== End of code ===>

I hope this helps.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
[EMAIL PROTECTED]